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(00023810 1° O009%2 
00023820. ( 
00023830 001130 
pone te. 0013%4 
000 9 
09023460. 


Data Documents/inc. 


g a < . 7 © . nm a Sn ee Th 3 =. x 
eS ¢g an < > & & 5 & & ; K 5 * t r 


00024000 fr O000tO 

00024100 r dO000t0 

2 T ON0020 

COMMENT ALGOL WRITE INTRINSIC3% . - ae 00100000 7 d000t0 
PROCEDURE AULGOLWRITECTENS” FILXe CHSKPs LNSKPS Fie AEXP? eae Sots be ee 

ARRY? eT ETE CHANSKIP> SUPRS» NUMNDS? TANK) 0100206 000080 

subeeats CHANSKIPs aoe NUMWDS» TANK» 00100300 0000%0 

Q , NN0030 

INTEGER ae 18K . 00100500 900080 
amine aoa e, VSK IP: 00100600 7 000010 

UN AME 5 oe Xe J eee 4wk OO100700. 7 0000's 
ARRAY TITER EN ETA 00100800 O000t0 

BEGIN REAL peecce mene: L3-ADDRESS 3% 00100900 000020 

: 2 Q C1000 000020 
00101400 000010 

: Ooloteoo QQ0080 

WRRAY F 7 } WDE ae Pere DOL01300 Qd00 tH 
INTEGER. [> RSIZE3 , Qolal4oo 0000!0 
INTEGER SPOUTS . 00101450 0000%0 

ARRAY TINK=1TANKE *]J; 00101500 Qa00t0 

~ REAL CHNSKPSCHANSKIP3- ae 00101550 Tr O0008O 
“ORR ALE ALAOLURTTES {23 a : OAs (001044600 000010 

DEFINE: FNUM = FIBL4) sf: aa : 00101650 Tr. QO00080 
OEFINE IUD= C#TANK)®S% 001017900 0000*0 

$ SET OMIT = NOTCTIMESHARING) 00101750 000010 

= TIMESHARIN O010 g d00080 

SUBROUTINE: wAlT3s PATANK G200000000022+COM*0EL +DEL 3% 0olo!1 900 o000%0 

$ EGE OMyT ee OO1die01 © 000410 

_ LABEL. RR» LP aMTLeCLOSEDs OKI » SP CP 45D PP rr . 00101900 000430 
“LABEL DCN1sDCN2sSPINo QOO101910 000440 

$ SET Om[T = NOT SHAREDISK 00101919 000430 

SWITCH SWie ERRsLPyoMT Y sCLOSED?DK 16 SP 4. ack [a9iPysPP 4 »ERR? DCys 00102000 000420 

oe oo  ERROLPLSDONLE oe 00102010 fT 000430 

: LABEL _ghP@eMTzeOKarSP2,cP2,0c2-FP 2s 00102400 000430 

00102200 0004890 

LP2sDCNes . Oolo2a2to Og04%0 

LABEL DSi-DR1I-0U154 00102300 0004:0 
SWITCH DSwleDSlsDRI»bL1»CLOSEDS or _ 00102400 000430 
LABEL UToPBITsUWT?0192R ELEASE AST ARENT TAU DEN INDUP? OBITS 00102500 — 000430 
«LABEL TYPEUsTYPEAsTYPEC3% 00102400 - 0004t0 
SWITCH: TYPESTYPEUSTYPEAS ERR TYPECES ee =. 00102700 7 . 0004t0 
LABEL DS2e/DR2sUU25% 00102800 000430 
SWITCH DSw2eDS2s0R2e0U23% 00102900 000480 
SUBROUTINE BLOCKs% 09193000 900430 
BEGIN GO TO TYPECICFIBE§).Ca6so])3% ; ent 001031400 T 000480 

TYPEC? ae Reicha ibaa ha bolas cab ep 00103200 oodgt, 
Ante as Dee CTANKTOJ*NUMWDS INK 100))3% iz 00103300 7 0010%3- 
“BEGIN SteLOc Ss Dile*DI78s DS*4 DEC$ DleDiss 00103400 001292 

Sleces SleSr78s DIeDI=43 DSe4 CHRSS 00103500 001382 

END34% 00103600 0014%< 

LF: dete cei Poeun THEN: BEGINS 00403790 © Qo14at3 

: FI Hl tinal Le: Ee, 00103800 * OOL8%1 


; Ver 1 90103900 OO20%9.. 
BEGIN TANKCOTeRSTZE INX 005 ren “OWT END ENDS% 00104000 00230 
NUMWOS¢FIBC18] .CiS8tioImFIBCi7]4(1=3)3% 00104400 002542 
TYPEUt END BLOCKS : | | 09104200 ogee 19 
FAL SUBROUT. ds JRESSIX aa oe | OL oe 


346300122) *HEADER(OD yL 4216133 


Data Documents/ine. 


e 5 < * a 5 = = * = ~, 
A 5 8 os 5 3 : 


CLOSEn! __ 


IF CSUPRSO*ANDRESS OLV HEADEREC1]+10)230 THEN 
BEGIN P(0O)3 GU TO EXIT END, 
F HEADER(CSUPRSJ=Q THEN 
If HEADER(9I2¢SUPRS"10) THEN 
~POFPBLFNUM63], FRACFNUMJSFPBCFNUM4+1 J >SUPRS*HEADERS 
PLS COMP DEL aL DEL e DEL» DEL eD 

BEGIN P(CG)s GO TU EXIT ENDSS 
ADDRESS «HEADER [SUPRSI+SUPRS+ADDRESS MQD HEADERCLI+% 

AM R N 0 ae NDg Pp ss 


Exits DISKADDAE 


LXENUT a3 AWE 
21<2 THEN PCMKSe"WRITNG*OFILXs 7s SELECT) 3 
4341) THEN 
POMS» CHSKPs Os FILXs 1s SELECTS 
TF. nena AND ee AND CIeFIBL41.(8ta) dey 
ARIK . 


=o ™, 


$ RESET OMIT 


RSIZE «© PCMKS* LNSKPs CHSKPs SUPRS» 
C™l1)» FILXs ALGOLWRITE)3 WF 

IF ARRYsco THEN SUPRS ¢« 1 ELSE aWF 
BEGIN IF ARRY«l8310)>PCDUPsAEXP 
THEN PCDEL*s AEXP)3. BWE 

IF PCOUPIZRSIZE THEN PCOEL) ELSE RSIZE « ps ZWF 
STREAMCPA «©. LARRYCOJ Je P3 « RSI aWF 

P2 © PCDUP),C36%6)]* Pi © ¥FILX)3 SWF 

BEGIN $1 ¢ P4s DS © P3 HDS; 

‘ DS ¢ WOS OS _¢« 3% 


END? 
ENDE a 

IF RSIZE>0 THEN. POMK Ss -NSKP ». 
CHSKP» SUPRO» RSIZE® FILXe ALGOLWKHITEDS 

FILXCNOT 4) © FILXCNOT i ¢ 03 

PCXIT)3 


END} 
FIGeTANKENOT He 
UT3 lef 164), Ce 
SPOUT?S(1=5)) 
$ SET OMIT = TIMESHARING 
IF PCI» QUPIZ13 ANU PCxCH) 43 AND cHNSKE C2341) THEN CHNSKP.CFF J: 


§$ POP UM1TT 


IF. CHASKP, far THEN 

BEGIN CHNSKPs(4tyJeo3 
$ SET UMIT = NOT SHAREDISK 

END} 

IF _NUMWDS<O THEN GO TO SWitI]s3 GO TO SW2CII3% 
ls MIE BEE SPYE Pert: es 


LE 100s sigitl_ tue PERS IZESRING ase 
IF 10DeC2531] THENS 


PpITs 


eee ees aM WE eine h oe 


Roemer. | eae mere 


00104600 
00104700 
O10480 


00104900. 
00105000: 


001050 50 
00105100 
001405200 
QOO10 Q 


00105400 7 


00105500 - 


ofak ‘Re orem 


00105700 
00105703 
0010 


00105720 7 


44 


4-4 ft 


00105750 


00105755 


ee 
00105800 


00105900. 


00106000 


00106400 
00106200 
0010630u 


00106400 


00106500 
00106400 
00106700 

00106800 


OO0 690 


0033°%4 
0035%3 
0 0 
0038t0 
004026 
ener Tee 
0048 
0049!%2 


00540 


 OOB G4 


ey S72) 


005782 
0099383 
O06 130 


Ood4to 


006610 


006982 


007311 


carkie 
Q074!20 
N07420 
007530 
Oo7ata 
00783 

0082%2 


008343. 


“@0107000 7 0 


00107;00 + 009% 


001907300 
tae er 


DOLeTeaO. 
00107700 7: 
OOL07 800°) 


VOLU7 B20 
00107840 
0010750 
00107851 


00107960 


O0 a70 
00107879 
00107890 
08107900 
00108000 
00108100 


aT TPTT 
00108400 
0108 


00108420 
00108430. 


BLOB AGO 7  O,an 


_ 00107200 | 


0092: 23 
009450 
00973 


‘009742 


aosi te 
A908 


reat 


0103%2 
0103i2 


010884 


VLtO9EO 
Oxiits 
Ortaitia 
0) 5 


O1zate2 
042892 


012942 
013230 
04338 


—O43ato. ; 
Qydste oe 


Data Documents/Iinc. 


@ ® 
| FIGC5).C45t1]*PCTANKENOT 3]20UP)40 AND P(XCH)4153 00108450 T 044583 
@ PCTANK» 0711 4COMPDEL*DEL) 3 | 00108510 T O151!2 e 
NQ B 453 : 0 Q) 
PCTANKENOT 3294 TANKENOT 33*TANKLNOT 4)00 3 00108520 7 0454t2 
@ | RENKSS 94BLKCNTRLODEL) F& TARE PARITY ACTION LBL BRNCH, 00108525 T 045910 |@ 
~PC1)5.60 To ps3” OO10BS30 7 016010. 3 
END ELSE 00108535 T 016083 ‘ 
e IF 1UpeC27!1] AND CI=2 UR 1=7 OR J=8) THENS 00108600 T 046083 |@ 
BEGIN IF NG BL4)el23 HENS 00108700 7 046534 Js 
ee “BEGIN HEADER*TANKENOT 1)SHEADER( 4] eC 42t6J¢1 END; 00108800. 7 0 eee 7 
® 8 Fe? THEN res Hee eee % MULTI@REEL PBT FILE 00108850 7, 0 |@ 
a ¢ E28 00108900 -T hea > ae 3 
PC MKS 690+ (NOT 2) INXx TANKe 4s SELECT )3% 00109000 T 017732 fo 
e Fi8t13],C28:10Jel; GO TU CLUSEDS% 00109400 T 047933 |@ 
E 0010929 01823 12 
: oo BEGIN is aes 00109300 7 O16at3 . | 
e ERR? Pp ee eee ee : 00109310 tT 046384 |@ 
OS? sega “PCTANKsXCHe 11s COM)3 — ; ; Pie Re rt a ee 00109320 0183%2 9 
ENDS | | 00109330 T 018412 
6 WAITS GO TO PBLT3% | 00109400 7 048482 |@ 
OK1! HEADER**CFIBL14)33 GO TO OSWICFIBI4],le/t3)13% 00109500 T 04868 r8 
. DkK2t HEADERS CF IB(149115 GO TO DSwetFlel(4],f27t3ijsx% 00109600 T O494t2 "9 
@ rp CP2t BLOCKS PANG EDIRC ANGE IBENG 1 REHENSKEE CazSA7 8119 GO TO RELEASES 00109700 T O198t0 be @ 
P2i. IF SUPRS THEN STREAMCRSIZEs0*100)3 BEGIN RSIZECDS¢8 LIT " ") END 00109800 1 019943 | ola 
CHANSKIP«CHANSAIP+LINESKIP +L 4$31)3 00109950 T 020480 2 
r IF CHANSKIP#0 THENS 00109900 T 020583 3 @ 
BEGIN I TeF [BCL 7IM“ROTZED20 THEN 0 0206 24 
STREAMC I 0¢RSIZE INK 10005 BEGIN I¢pSe8 LIT " ") ENDS% -00110;00 T 020980 
@> ENO ELSE GLOCK#S 00110200 7 021312 1 @ 
TANK LOJ¢FLAGCEIBL16]) gh INESKJPL274474 1) GL INESKIP( 28146! )% 00110300 7 024580 2 
P RCHANSKIPL2924424 J&NUMWDS(8! 38310)3% 00110400 7+ 0217!0 pe 
OF GU TO RELEASE: 00110500 T O220%4 2 @ 
; Spot pP2ry 00130600 02203 : 
E MT2) BLOCK3X 00110700 T 022033 s 
er PETANKCOI*FLAGCFIBE 16) )ENUMMDSLOE3G! 1027 NUMNDS>XCHe INXS 00110800 7 022240 (bl @ 
- @3700000000000000>xXCKH? + )3% N07440000 TT. “G228%0 
IF SPOUT THEN * SPO QUTPUT 00110910 T 022583 
@}: PCO*O*NUTs LUD» INX+154COM*XIT) | Ool10940 T 0226380 a @ 
8 00110990 0228 aq 
RELEASE! — PCFLAGCFIBL19) ATOOL3t3!5), TANK»PRLODEL) 3S : 00111000 7 O228t3 3 
@F WINDUPE TeFIgt191 6334152" F1aCLe] 4f33415158 O0114400 T Oz3at0 | 4@ 
9 3 : ae Sit g5 3 «SUPRS oMEMEP COUP NX NO’ 84: 3% 001414200 02361 Q 
FIB(19].633i151+SUPRS413% 00111300 O24 142 
@ WINOUPL? . 00141400 024430 
“F1BCO3+F 18063445 FIBL7JeFIBL73415 FIBCA7JoF IBC 14Jel 18215153 00111500 0 
‘ re iy ee ne eae 00111600 7 O250%1 
@ DuLtx Sa | Co111700 t 025012 4@ 
| DSit IF LINESKIP£O-TH NR , 00111900 + O250%2 4s 
é BEGIN IF 1ODel2731) THEN GU TO AB; 00111900 y 0251381 46 
@ IF FIBCI7J=F18C18).018%15) THEN 00111950 7 0253%2 0 
; BEG N CHANSKIPer LeC/ 13 % 00112000 7 025512 
oy ae OISKA 06112100°7 O2s7to | 9 
Or sELOUNE THEN BITTY IF LOD.C2d1) THENS 08112200 T 025880 sf @ 
i Le eee |e a, 90112300 Q264t0 ’ 51 
S$ SET OMIT = Nat SHAREDISK 00112309 7 O261%2 5 
@ MEMLFIBL16]]*ADDRESSS 00112340 7 026182 bey @ 
PCRSIZEORTN)E 00112350 T 026374 s 
5 Et 001123607 026313... 55 
on 00112400 gQRSTED | bf @ 
57. O1124009 ¢. C265 04 AP 
@ @ °® 


Data Documents/inc. 


° a G a e. g F 5 A RS = RS 3 + 3 7 RS “= 
g u es 3 BS & é 3 3 ~ 


ono ~~ Oo FW FF WH = 


= 
i=] 


0 


DR2 


MOL TONY | 


BEGIN 
SHAREDISK 
GO [O Aljs 
» END ELSE 
BEGIN. WAITS. a0. DBIT END ELSE 
‘BEGIN: 
SHAREDISK 
GO TO Abs 


$ SET OMIT NOT 


$ SeT Umit = Nat — 


es END3 
oe ENO. PCRSIZESRTND 3K 
-ENDIE 


PCMKS» CHAN ISKIP! 4s TANKS 1 9SE LECT go 10 


IF FIBC7J>HEAOERDC?] THEN HEADERC7)]©FIBC 733% 
BLOCKS TANKCOJ*FL AGCFIAC161)93 GO RELEASES 
IF LINESKIP#0 THEN CHANSKIP¢FIBC7) ELSE FIBE7)*CHANSKIPS 
OTF HEADERCTISCHANSKIP THEN HEADER T? Te CHANSKIP 38 
$ SET out ee SHAREDISK : ey 


IF DISKADDRESS THEN 
BEGIN FIBC16] 6244 iI e133 


PCMKS»CRANSKIPS17 1s TANK>REED#RINDI® 


ae POP OMIT 


END}% 
$ SET gee = aa SHARE QISK 


t 
$ SET OMT = NOT: SHAREDISK 
. B FF F & “8 i 
PCFLAGCFIGC19})@10Di323!5)8 127307 Iie TANKs PRL» DEL 3% 
$ SET Sats Se Hy go pene Aas 


vars PIpEsTscassateay ae | | 
a fF BL71>HEADERE 7] THEN: | HEADERET ¢¢ 1807393 


CHANSKIP*FI6C7 1¢F1B[13), [1089 JxHEADERLO)< C30842)3% 
IF DISKADORESS THEN 
BEGIN PCTANKC(O Je : 
“ BDORESSs xXCHee)3% 
PCFLAGCFABC192 41 (24947812 ¢TANK*PRLs OEL DSS 


BEGi a TANK OUGEL ACCT aris) ) 40; 2ateal 114% 
PCFLAGCFIBC19)81(24 44424) +TANK»PRL»DEL IBS 


“60 +0 WINDUPS 3% 


“$087 OMIT » NOT (TIMESHARING) 


SD i TF. TOD, 


931) THES ne 
IF IQ0. C2tiJ THEN PCRSIZE*RTN) ELSE 

$ RESET OMIT 
ABt3 BrSiN IF CADORESS*TANKCUNOUT 4J)=9 THEN GO aa 
TANK CNOT. BIeTANKENGT 4] 05 
TANKEO] 4% 10D OR MEMS ee 
oo PCADDRESSsMKSs9»JUNK)3 GOTO ERR; 
ENO: 
IF TANKCNOT 4)20 THEN BEGIN WAIT# GO TO pci ENDS 

F PCCHANSKIPs CCF 1x60 sCHANSKIPs TANKs 18011 5CUM*DE 

- OWEN PORSTZE-RTND? — Hie Pur ee 


00112420 
00112429 
00 Ha 
00112450 
00112460 


00112470. 


00112479 
00112490 
009 Q 


00112600 
00112700. 
00112800 - 


09112900 
pea ae 


ag1r sao" 
0013289 7 


00113400 
00113500 
ole oie 


00113600 7 


00113601 


6te 64.9 


a 


00113700 T 


00113749 


OO Qs 


00113900. 


00113909 


os | AGRO 
00114000 
ee 


ccttetoe 


00114400 + 


90114600 
00114700 


00114900 
00115000 


00115200. 


goiretap 


00413800. 
00115501. 


O0 §S A406 


00115700 T 


00115701 
001154800 
00115900 


00116000 
00116200 


Det teteg 
0 


026524 
0266!0 
0266:0 
026612 
O266%e 


02681 


026920 
026930 
02698 


026942 — 
027010 | 


Q272°0 
027524 
027733 


028193 
(“O2a4t2 


7 PLE 


0288!0 
029120 
029110 
0293%0 
ora” @ 
029340 
02930 


Og93!s 


O293t2 


PETE 
gen 


Perr 
pba 


30856 
QO311%2 
i¢) 0 


031693 
U7 2. 


“032084 


032310 
; 


032513 
O32641 


032840 
033032 
Q on! 

093313 


INTEG 
INTEG 


ARRAY: 
INTEG 
REAL. 


INTEGER 


pcass: IF PCIF TANKENOT 4420 THEN CNOT 03009239) ELSE CHANSKIP.ECE) 
"60, CHANSK IP) TANK 174114 COM» DEL DEL» DEL» DUP) THEN 
N TANKINOT 3J¢TANKLNG Os PCX seers ee 
IF Pe2 THEN 
BEGIN ADORESS+TANKCNOT. Blo 
TANK UNOT. 3] ¢TANKEND’ #03 
IF ADORESS=0 THEN PCX]T)3 
PCADURESS»MKSs9xUNK) 
ND ELSE GO TO AB; = 
DCNL #1: POLISHCRSIZEsRTN)3. 
DcN2t3 I¢ IF CHANSKIP, (281) THEN CHANSKIP. LFFIX60 ELSE (NOT 0), ped 
IF CHANSKIPs (CF J20 THEN CHANSKIP® ABSCCHANSKIPAIICTF 
ELSE CHANSK [Pe (8X (LINESK [P= 4) 4L JNESK IP, C4533]) 
ACNOT LINESKIP)(32243%4); 
+ PU ISH(RSJZE & SUPRS [Cot473 ANK CHANSKIP, __. 
 T0De 1% 36% COMs DEL» DEL» DELe DEL» DEL): 
obey ebt TANKCNOT Can T82))93 thes 
NOT 32 TANKEINOT dle. 0. sein nae, 
Co : THEN PCXIT)3 
IF ADURESS4U THEN 
PCAQDRESSsMKSs9,BLKCNTRL)3 
. SPINE PCTANKs 3eIedis com): gQ SPIN? 
$ RESET. OMIT 
A, D 2) 
PROCEDURE QUTPUTINT(TENsFILXsCHSKPoLNSKP oF L»sFRMTeLISX)3% 
T 
COMMENT ESPOL yERSION OF ALGOL WRITE INTRINSIC 
BY L oR, gucK 12/17643% 
NAME FILX34% 
ARRAY TENL *J2% 
a CS * } A ee 
REAL-LISKSR 
INTEGER. CHSKPSLNSKP SFIS 
REAL ALGOLWRITES1293% 
SRRY REALROWSTEN@1[*13% 
CI=143% 
REAL JUNK2=9 3% 
INTEGER Vaal 3 
INTEGER. TEMP D#7 3 


JUNKISL75% 

ER LSTRNS193% 

R  -AEXP =FRMTS% 

- ARRY SLISxXCed3% 

ER TLSTRNS41 32. 

— UTYP ® TUSTRNGL: 
UTIP FUTYP., C4784] 
FFTYP2UTYPel4631) 
STORW=UTYP,(C40:6] 

NES @UTYPeC39t17 &, 

~~ YDC  SUTYP, (3834) &> 
_UEO  sUTYP.C3692) 45 

UMO SUTYP,[35%1) #> 
STORD*UTYP.C29%6) Be 
UBUFFEUTYP.l16i1 3] 8, 
“UTOP. BL eSTAat ET Fe ¥RR 
USMIPSUTYP, : tek 


USED FOR NON*@BUOLEAN USE OF UTYP 
FLAG TO SHOw USING FREE FIELD, 
USED 10 STORE UR VALUE OF W 
“€€2% FLAG TO INCLUDE EXPONENT SIGN, 
S FLAG TO INCLUDE DECIMAL POINT, 
RXZX NUMBER OF EXPONENT. OIGITS 
FLAG TO INCLUDE MANTISSA. 

USED TO STORE URIG VALUE oF O, 
ADJUSTED BUFFER SIZE, 

LAG TO INCLUDE TRAILING glLaNk, 
XTRA LEADING. BLANKS FOR f OR F 
FIELD DELIMITER (+ OR: BLNK) 


00116700 
00116800 


00117000 
0041417406 


00117250 
00117300 


00117500. 
00117600. 


QOO117700 
00117800 
00117900 
00118000 
00118100 
00118200 


“00148300 


00118400 
00118500 
06118600 
00118700 


00118701. 


O06 8:38:06 
002009000 


00200106 
00200200 


00200300: 


00200400 
00200500 


00200700 


00200g00 
OO H0C000 
00201900 
00201100 
0020) 


00201300. 
00201310. 
00201320. 


00201400 
00201500 
00201600 


00201700 © 
cose raed. 


T 
T 


; 


00147300 — 


af 


tbe 


0349%41 
035333 


et bv 2S Eee eeeeee ees 


036444 


036183 


O367%4 
036a%3 
03693 


0396983 


03773 
0380%2 


03833 


O38Sty 
 O9bat4 


UV 39140 
O394h)4 
0395%1 
039630 
0397%2 
0399%9 
(} Ls £3. 


SIZEs 0400 


T 


T 
, 


44 


00201900 °° 


00201905 


00201906 


00201907 


00201911 
00201912 
00201913 


" Ooa0teia 


00201908. 
00201909 
00201910 


T 
T 


ac 


Boake: at at 


4 


0000%0 


Q000!0 
000080 
Ooo0or4 
eForereR Ee) 
0000%0 
0.0.00 9.0 
-0000!0 
0000!0 
sleletek ee 
Ooddta 
0000°0 
Onda 
000010 
000080 


20 O00t0 


0000!0 
000030 
000080 


0000%0 
0000%0 
000030 
Oo0dtO. oe 
~~ 000080 .. 

T O0000!0 ... 


037082 | 
O37St0™ 


WORDS 


Data Documents/inc. 


a a a ° * ~. 
oh > & > Oo & & 5 © 


INTEGER  SUPRS = UTYP4]13 00201920 tT O000!t0 

REAL BUF F=SUPRS+13% 00202000 tT G0c0t0 e 
NTEGER BSIZE=BUFF +]3; 0020 O QQ00%0 

ARRAY FISBSIZE+iC#ls% : 00202200 . 000080 

REAL WH2eP 1B413 3" Cee a 

Real WHLBNHee 1 e- 90202400 


REAL DHI=WHL413% 00202500 
INTEGER UH2=DH1 413% 00202600 
REP WaDHet+i 3% — he Sa 
pend ele ee ae Oozoagoo tT 6 
Weahee}ys © ee : 90202900 T 


DENT +132 


Lae 
08202300 7 ; 
T 
T 


oon @m TF Ff WN = 


00203100 T 0000%0 


it) 
ba DLsD+14% aa a 0000%0 
2 % QN0010 


Sr etee mt , : 00203500 . 900070 


HRESKIP : ae 3600 7 Og00td 


> 


a 
a) 


‘ INTEGER E=CHR+1sa 00203700 YT .0000%0 
i REAL ZEROS=E 413% OQ02C3g00 FT 0000:%0 
8 REAL CODE=ZEROS+]4% emi 00203900 000020 
Yom es REAL  FAWECOUE +132 . 00204900 oo00t0 
Si REAL SGNBFAWN4132 00204100 000010 
’ N RS ReSGN+i3% Oo204200 Ononto 


REAL TPHRASE# =SCFIR+13 00204210 


tr .Q000380 
23 LABEL RTNPRNTSEFASEFCOEERTNsRNASRNBSS 002C430C tT O000%0 
STARTs ISFRMSAEXL » LOAsTIB pASLS Te BS pBRe BB pERROR SS 00204400 000080 


FMOUTs Sis Sah PPARs RTPAR»s SLASHs SCALE» STRNG#S 00204500 
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le Fiek V2T+TENPeVaLs PCO) 3 
USEt PMETOPS. IBS e LF! Q es 


Peale erect eommnrsmnner ee semremewes.* 6: 5 X-Jo1, 2° Eve dame *B @. 2- eeee ee 


00433660 T 003430 
00433670 T 003420 
00 475 00343 
00433677 y 004033 
Goesseeo Oogate 
0:4 fh Oo4* 
00433690 T 004682 
tie aes T 004633 
00 O046% 
00433760 7 004730. 
00433775 T O649%1 
00433780 Ooags: 
00433785 tr ood51%1 
00433790 T Q0528%4 
90435 r__ 00523 
Co435446e ¥ 005283 
00435447 T OOS2!3 
00435448 T 00523 
00435449 T 005233 
poteou7e T 005233 
. OO és *. 
Pere IN T 005233 
pO 4 25558. 7 005910 
E £00 : OH643 (‘ 
Bonises6 T 006583 
00435300 + 0069t2 
On : O43 
00435850 T O0084%2 
00435855 T 009430 
09435870 1 0103%2 
sea tT 0108%0 
0560 ) QQ 
00436000 T 010912 
00436025 T 011133 
00436075 T. O115%2 
eee ere T 01170 
60 & 0 030 
TEE, 012084 
00436,64 7 012480 
00436490 O124to 
00436194 yy 012784 
09436495 T 012784 
Og 36200 ¢ i 
00436201 tT 0135!0 
00436209 013540 
0043962 oO ya8t0 
00436250 T 013530 
sabes T 0136383 
. e ) e 
0043630 7T 014084 
00436350 01488 
Ooaseaas M re 1 
09436410 T 0145084 
00436520 T 045182 
N043465§5: —OL 54% 3 
00436600 T 015483 
oossba6r 01862. 


Data Documents/Inc. 


+ ms . ee ee eS Se << 3 


IF DISK THEN JF HEADERC4) THEN CHKCLOSREL ELSE CHKOPEN 5 00436675 Qid62ate 


t 
FIBCSJ]¢Cli3*3J+IF FI=O THEN 7 ELSE IF aaa O THEN 4 ELSE 00436680 T O168t2 e 
MPs IN cj oe S$ LS U0 oFte 
Fist THEN 1 ELSE O 3 00436690 T “o177ta i. 
Pc10)3 fF: NOT PMET THEN. Go cHKas GO CHKI 3 00436710 T o161td |@ 
eth ee Nna36 p 7 
MFIO4: Pe MF IDX» 0eMFIOX)3 Go TOIT 3 00436750 T 0182t2 ‘le 
00436775 T 018383 Z 
Dot ae ot ADX2 Oe F DX 10 TOL" eae ee ee 0904363800 Q Aas 6 
mar sii OREIRBE EES AGLI Nas i oo BE SEE 2 00436825 T 018510 ‘le 
REELSG? —  POPREELKSVALPO99OSREELXIS GO TOIT 3 Goa 96850 Te: SEHSLO ; 
at See ae cen cu ee ae am 004349. a . 
DATE73 PC eDATEX*VAL CIV 1000>99 OR VAL MOD 1000>366*DATEX) 3 00436900 T O1e6t3 " 
GO. TOIT 3 00436905 T 019030 ie 
== — ~ LO 223 UL 2012 
CYCLES?  PCOCTERERSVALOO9s CT CLEXIE GO TOLT. 3 Oo436e50 + O190%2 NS 
ey | 00436075 T 049244 @ 
PES? TYPEX: VAL> 63. ORC VAL AND 342 863-ORCVAL AND. 312>2657YPE OO437 O10 +  O199t 5 


er PayAL, THEN BEGIN PCDEL*DEL)% GO EXIT END 4 00437030 


INITIALIZES PCO)3  CHKMYUSE3 CHKOPEN 3 00437040 
If FIBC4),C24:2)41 OR FIBL4),0824)42 THEN SRE 18 
ELSE IF FI®4 OR FIF9 THEN ERMC"CLSesNOT ALTR") 3 094379907 020783 ae 18 
IF PCXCH) OR VAL 118140 THEN GO VALERS SCATTERFPB 3 09437105 7 O21512 @ 
* AINA 2 w?. Dx a K As 1s x x e oer! i : 8 O30 
TYPEXs ils SINTRINSIC) i TIT tT 022133 1@ 
GO EXIT 3 09437130 T O222%2 i 
Sa a tN a a a al ae 09432450 7 022310 
AREAS 40% IF NOTDISK OR VALsF18¢81, C2085]. NEN GO EXIT 3 00837200 T 0223%0 2 
| PCF IBC Jo (FIBL8) 321) 3 00437210 7 022533 ne 
as : i. PTA. At foe Si pe ns eo ate Tees oy whens aoe oFaw! yes f}. + 
| | 00437975 T 023084 es 
AREASIZE11# IF NOTOISK OR VAL=FIBC8).(25123) THEN GO EXIT 3 00437300 T o23081 {@ 
S Q 2 ole YJ ) ; 
| | FIBCS). T25t23}evALs | PCBIG) eke 00437340 7 O23434 | . 
CHK3L1:  PMET@PS CHKCLOSREL; © "RePMETIS GO CHK2 3 09437350 7 0237t0 \@ 
HK 37 22 PMET#Ps. CHKOPENS PC PM ; 00437 023934. 
CHKet: PMET©PS CHKMYUSEs PCPMET) 3 nabarare T 024133 
CHK IE: IF P2VAL AND NOT VAL,C1!1] THEN GO EXIT 3 00437380 T O244te 1 @ 
~R3’ NOTDISK¢ABS(C Ve A 00 00 02473 36 
“OPENCO! WHILE TENLOPENCOPENSIJSNOTOISK DO? INITERR DF 00437410 tT 024930 2 
STBEAMCNCOPENs VeNGTOISKsTeTYPEsL©VALSIGNG VAL oC 1#1 J 2Q°NAM<O 00437440 T 025430 ps @ 
—pReCOPENSVALSIGN)>BeE e+ (TYPE29) sWeVALeF y) 3 00437450 7 0256 an se 
BEGIN | 00437470 fT 026084 i" 
DleDI*2s pSe2LIT*sa" 5 00437480 T 026081 «|@ 
QCST*LOC Ws DS*¢B8CHR$ JUMP OUT TO yds LOCDSeLITIE") 3 00437490 fT 026430 2 
| RCOS*7LITM*e"s JUMP OUT TO J33 SI*LOC vi DSen DEC & 00437500 T 026910 ‘ 
Jt. oe Ty} DS+3L1TMeT SE" DSeE DECI DS*albyT*se” 3 00437510 7 O26744. \4@ 
oa OF STREAM # a On437s20. 02693 45 
Go aunt 3 00437530 T 0269%> ‘4 
00437550 7 O270t0 + @ 
EUNUM 428 IF NOTUISK OR OPEN OR FPBLFPB3)0048:5)5VAL%] THEN GO EXITS 00437560 T 027080 r 
: PCFPBCFPB3IJe(FPBLFPA3}921)3 % STORE ee RECOVERY a ae yy. 027380 as 
Fretersai, LLORSIVRVALSS) 3 EU NOstd es 4375807 027530 7 5 @ 
.) THEN VALte13 Pp 50 TO CHK2: 027810 cs 51 


028130 


| rere T . 
DSKSPEED13! If NOTOISK OR OPEN OR FPBCFPR3).C16827"VAL THEN GO EXIT; 00437610 +r 028480 :1@ 

P PCFPBLFPB3JsCFPBCFPB3)Jo1)53 % STORE VALUES FOR RECOVERY 00437620 84t 5 
Be  RPRCERE SE, CLG Te TVA AGS * EANTABS ES SL On : 00437630 T Pes5i2 — ‘le 

Ws ge oe : : 90037 6G T geet 5 
@ °® 


Vata vocumenis/inc. 


® 
TIMELIMIT143 00437700 T 028883 
) $ SET OMIT = NOT SHAREDISK 00437710 T 028833 ® 
: 00 60 0788? 
IOSTATUSI5$ GO EXIT3 —— 5: 00437770 T OgBet3 
é : | re 00437760 tT O289'4 
SENSITIVE,4: JF NOTD]SK OR FPB(FPB3),fi5ti]"VAL THEN GO EX 00437800 1 0289 
PCFPBLFPB3J*CFPBLFPB3JJ]#1)s % STORE FOR RECOVERY 00437810 T 029210 
& FPBCFPB3]¢C15:1)85VAL$ ZSENSITIVE=1 00437820 T O293'4 
e 40 ada’ 4 - : z On * 
; BiGits: @37777777. 3 re ee ee -_ 90840000 7 Obeid 
@ oe ‘i ~ Tie eS 7 Coaagess T 029830 
BZ%UX INSERT NEW XN@TYPE ATTRIBUTE CODE ON NEW LINES ABOVE HERE %23% 00450050 if eng 
@ BLLLLLLRLLEVAVLLRLBARLALSALALAUTSLLARTLALLTLLAVALVLRALAALAVIVAVULL SILVA 004501300 7 0298t0 
00 50 ‘al ge 9-£ Q 
toe A a ae a 7 00450200 1 029840 
e ACCESSVOt PCIF (FIeTYPE ANO 342810 THEN 1 ELSE IF FIs13 THEN 92 00450250 T 029810 
c.. ; T =z ; t ; ; ; ot : eee 67.92.49) i Nanak 
ELSE Os RTND2 00450260 7 Q0304?3 
@ 0090450300 f 0303%2 
M p B : RIN) 3 ok hehe es 06450400 0.30323 
00450450 T 0304t2 
er SAVEV21 PCFIGC4I.C30¢18]sDECTOOCT»RIN) 3 00450500 7 030412 
: : 0:9 Q O 030: 
P OTHERUSEV3! PCFIBSeL[9%2]ekTN) 5 09450600 T 0307%4 
@ | 00450625 T 030884 
M : M x ; 004504650 0308: 
PS i 00450675 T 0308%3 
@ Fe FIOWS3 PCFIDOX*RTN) 3 | 00450700 7 03083 
Pl Zo . : On45072 A309 
pa REELVGS PCREELX»RIN) 5 . 00450750 T 030984 
@ »: 00450775 T 030933 
ie DATEV7# _ PCDATEXsRIN) | 00450800 09% 
aie me - | | 00450825 7 03104 
or. CYCLEV8! - PECYCLEX*RTND 3 Ay 00450850 T 031041 
oe anated On450875 yr O3403 
TYPEVQS PCTYPEX*RTN) 3 00450900 rt 031033 
@ ; 09450925 r 031124 
AREASY10? PCFIBLB8I,C20t5)»RIN) § 00450950 0311! 
00450975 Tt O312%2 
@ AREASIZEV311 PCF IBC81, (25123 32ATN? be , Ooasioog + o3i2t2 
g at : «& ‘FPR3) 851° ‘ y O49L34 
TPEEGETEE reais CTEMPt=FPBLFPB3).~ tietaice 1 THEN 1 ELSE oo4si oso Tt 031532 
 ) IF TEMP=2 THEN 2 ELSE 0)eRTN)3 00451055 7 031833 
TIMELIMITV 14 _ Ss eee 00451075 + 03215 
$ SET OMIT = NOT SHAREDISK eae S Ooas1099 T 092184 
@ PCO?s. PCRTNDS | 004511450 T O3281%1 
é IOSTATUSV453 Bs = Oo451175 Yr O39248 
6 $ SET OmyT = NOT SHAREDISK 09451199 T 032133 
@ P(O)3 PCRTN)3 09451250 fT 032183 
SENSITIVEV14: PCFPBIFPB3). C1St1)eRIN)s . 090451300 0322! 
00469999 tT 0323%2 
@ ET EEET RESTA T TET TTT LELTTL ET TTEEECETTTE EET TT ERTL TEE LELTELEEE TELE LELTLE 00470000 T 0323%2 
Z3%%_. INSERT NEW XVN@ TYPE ATTRIBUTE CODE ON NEW LINES ABOVE HERE 23% 00470050 032 
: RLRRRLRRELLLUALARLTALGLLLUTA LALA ALAA TS LALLA ALATA LARK ABA TSHLTUALLVL VATE 00470100 tT 032382 
Py 00470150 fT 0323%2 
in O) 
EXIT?!  TANKENOT 43¢03 IF ‘INFO THEN RCRTAA SOREN) i ot. 032312 . 
OF. ENO: OF ETLEAEGTEOTES a as 7 092612 
\ 


PROCEQURE ALGOLREAD(TENs FILXs DKADDs ACT» FIle AEXPs AW 00500000 tT 0000:0 
START OF REL SEGMENTS DISK ADDRESS = 
ARR R BKADR ANK)3 00 O40 _O000to 


VALVE. Fle ‘DKADA> TANKS” CODE, ACTs AEXPS a SWF 00500200 fT O000!0 


2 N RES ROW = + 0 BLK 35 


00500900 oo00t0 


“REAL. GUL RB! i33 _&ln OOS801000 Tt O000to 
ARRAY TINKSTANKE * 3. SWF 00501100 7 0000380 
INTEGER RSIZESFI3.. 000030 


00501200 


_ 900080 


00501410. 
00501500 


Ae Ty DCN2eSPIN 
LABEL CRIOMTLy CLOSED sOK1»SP19PR1sERR?4 


“opserere 000080 

00501700 } 000070 

a RR RR» é ’ Sos aie ene OoS01aA00 tT Oo00tO 
ERRsDCN23 00501810 T 000080 

LABEL SWePBIT*USeF LAT 2 OSPGIT* PAR DSRINADS199 RAL PE GF 0285 % 00501900 T 000080 


nal of oe 
PALF 


SWITCH ASW*DKS*#DKR»DKUsCLOSEDS 00502200 
$ SET OM{T = NOTCTIMESHARING) 00502250 
$_§ OM T 3 TIMESHARING 00502299 000030 
: WALT (X07 FZ00000OGIG> Br CONF DEL> DELI 00502300 | 00000 


tT 0000:0 
t 
tT 
00502301 7 000450 
T 
T 


00000 


Data Documents/inc. 


0 zy >. 


J sRCRR 00802400 
SWITCH RTYPE*RUs RAP ERRO RCH ‘ 00502500 
LABEL OKSR»DKRR»eDKURSS 0050260C 
SW H ASWReDKSR» OKRR» DOKL RI% 

ARRAY a NET SGAREDSER rae ee : 00502800 + 0004%0 
af SHARED ISK pee ot ee ON502 809... 000440 


000410 
000430 


Sa F SRESESeUeeees 


000410 
0004s 0 


sepete 
Oo11t3 


REAL SUBROUTINE DISKADORESSI2 00503000 

BEGIN IF DKADK20 THENS Soap aTo8 
BEGIN ADDRESS*(DKAOR DIV HEADERCOJ ol 30812) )xHEADERLOJeL 

AF CT@ADORESS O1V HEADERC 114109230 THEN PCO) ELSE . 00503300. 

ae RCI]30 THEN PCO) ELSE . ' QoS03400. 


JORESS*#HEADERCITI]+1¢apoRESS MOD _H ADER : 009635800 COLate 
STE AN(DECRODRe Sc BEGIN SI*Ds DS*8 DEC ENDS 00503600 001734 
P(1)5% 00503700 001833 


001980 
, OO19%3 
O020t0 


$8 P(O 
KADDRE SS +P 5% 


ADDR! 
S$ SET OMIT # NOT SHAREDISK at 


005037800 
00503900 
090504000.. 


ee ee en oo 1 


* Ay A Ban: 
> so & > oO S os 


FALXCNOT 4) © EOF LS 


a 


00500800 tT G000t0. 


heat ‘UNITYPEs DDRESS> wLKODE SE 00502000 oo0oto 
$ SET OMIT -@ NOT EDISK. ' oos02o49 000010 
~ABEL DKS. OK Rs Dt 005022400 HOOK tO 


000410. 


ee 00504009 tT O02014 
IF TINK#0 THEN AWE 00504200 T O020%4 ~ 
BEGIN FIB © FILXCNUT 273 %wF 00504300 y 0023383 
See 3] «¢ PARG EEE T 002630 


C029 82 


00093 


ARRAY feds TENTS 7 : Rw 00500300 tT 000030 

NTEGER ACT aa aaa  $" OHS O00 eo. “OOBO01H 
REAL DKADDs PARL» EOF Ls CODE, DKADR3 WF 00500500 7 000040 
NAME FILXs» TANKS BW 00500600 T 0000%0 
s 3% O0900700 N00030 


+ So00td : 


KSIZE*PCMKS» CABSCACT )&3)sDKADDe lo FILX»ALGOLREADI3 00504700 T 003880 
IF ARRY#C THEN RWF 00504800 tT 004033 e 
* N ARE @ P P ! P ae! an oFe' 9.0.0 O04. 3 : 
‘ TREN PCDELs AEXP)3 mW 00505000 1 004383 
2 aE PCDUPIERSIZE pa FOOEL? ELSE RSIZE « Ps Swe », 00505100 Tt 004510 
3 * a” 00505: C0883 9 
_ "P2 ¢ P(DUP). L30%6)9 “PL ¢ [LARRKY[Q]])3 aWF 00505400 YT Q049!%2 
° BEGIN SI] ¢ P43 OS © P3 WDS; IWF po sna aus tT 005140 
6 wDS 3 DS \ Zz) 005. __ 005 
d ve END E. Se eee SWF 00505600 7. 0053%6 
ENDS oe ee ee ae os ene a RWF oos0s700 + 0053t1 
8 : T)22 TWENZ Co _OoS0S800 7: Oos 324 
Q PCMKS» DKADD> Oe FILXs» ALGOLREAD)? aWF 00505900 7 005434 
M4 FILXCNOT 4) © FILXCNOT 3] € 03 AWE 00506000 tT 0056!0 
bi P&xiT). _— ai 00506,00 7 QOO59! 
END? eee 00506200 7 d059!o 
4 FIBeTANKONOT “215% 00506300 7 peeaeed 
5 Sw UNTTYPE oF 1874) ,(8t433 Gas} BLKQDE. s 0050600 : +4 
@ $ SET OMIT = TIMESHARING 00506440 Tf Sere 
7 IF UNITYPEZ13 AND UNITYPEZ3 AND DKADReC 284) THEN DKADReCFFJe Q3 00506450 T 006543 
8 Pop OM 00506 : N07 O34 
9 IF DKADRe (481) THEN wae 00506460 T 007081 - 
BEGIN 00506465 7 007180. 
¥ 7 OM @ NOT. SHARED i Re OOSb6469 | 007429.. 
DKADR se Ll3i2l]e03s : 00506475 T 007182 
3 END; 00506480 7 OO73%4 
& Ope Th : Q 0 T Peds 0 0 § Pr]3% 0050650 O07: 
MTLIs ~ : ae ; 00906600 T O0090!0 
: CRLIS en . 06506700 7 O090tO.. 
3 = : Op. * ; A : : 3 : OnsOsAwoOn. T  On9n1o 
§ PBITs BEGIN IF 10D. [201] THEN? 00506900 T 009130 
: BEGIN IF F1BC17)=0 THEN PLatirdesCcre REV THEN 1 ELSE NUT 0) se coe T 009232 


< A (Te NOVAS . 
oon “RP CCIF. BLKODE Fah 10p.t81104 ELSE FIBCU7I D+ RINDGS 00507200 t 009a33 
eee ENDjS 00507300 7 S101 93 
Ba) : : we Uprav+iee % 4 eat pie vets 00507400 é 
F CLOSEQ: BEGIN mo, ; ; 00507410 T 010203 
p FIBC{3)].Ce7s3 jel; 00507420 T O4103%4 
ps IF CREVeC(FPBCFNUM+3) AND 31))410 AND REVA12 00507430 01053 
Pe Ee REVF13 AND REV426 THEN FIBE535C4534)¢0 ELSE 00507440 T O09, 
38) FIBCS), CMSELIEPCTANKENOT 31+DUP)#0 AND er OO507 450 T 025540 
; PCTANKs On tds MODEL eOEL) . 00807510 0120 
0 IF NOT FIBLS }6 C4581] THEN fe SW 3 00507515 T WER 
PCTANKCNOT 31)3 TANKENOT PN ee 4jeO 3 00507520 T 042383 
DEL 00507525 7 0128 
COORe1s G0 AeA 053 BES OS eas se 005075390 7 072981 
END 3 - a3 “es ae . me OOSOTS aS 7 013012 
af) : ; seals Be ; oe aa OO807400 7-0 Obs: 
BEGIN IF UNITYPE=2 THENK 00507700 Tr QO1314%2 
IF FIBC4).C2:11 THEN’ 00507800 7. 043283 
= — — P MK Up (NUT _ } Sheho re Ou 0 v1 aaa en 
jie : ae Ape ae 00508000 7 OL37t0 
Pps ae TE ME A 06506;00 T 013940 
we BE ? : : ; 00558200 O14 
i PEMKSs 600s (NUT 2) INX TANK AyecCEcTois 00508300 ry O144%2 
Pa FIBCLZ] eCA28tLOJeUNITYPE+13% 00508400 -r 014623. 
ai : a T od: 


~: >. 


Data Documents/Iinc. 


es ay * a 5 ry 7 a m3 o—8 a Bn x. x. >. 
= : Ls Se STE Bey De FL sa Eee fee es 4 


IF CODE = 3 THEN BEGIN PCOsCTANKCNOT 2))019%179COM); 
ee END; 

i ANK Cine ON 

TANKCNOT. “a IeTANKENOT aoe0? 

—-PONKSS 9ABLKCNTEDS 

oo ROT ANKs CODE st is COM 

ENDJ4 

PCTANK)3 radia GO TO PBITs4 


ri8ri9). raat isdecOpe gLKO0es x. 
FIBCOle(HEVeLMMEVI1147111)4F 1BL6 58 
FIB J+REV3 FIB XIT)3% 
IF. TUE EACIB ARTES SCE PIELLES 2)<CODE THEN Go To RUsS 
TANKCOJ*CTF. REV: THEN: ‘NOT. CODE INX. c ELSE CODE) INK 1OO3% 
Oo TO 
IF CFIBCI7 IeFIBL17 J-cobE* IUD, [8310)*1)$1 THEN Go TO RUPR 
IF REV THEN 
B INS STREAMC S*TODeD+ 
: “BEGIN Sye#S? Tee ETT DSe4 OcT ENDIX 
__Tawetoieéwor (cone sco0e olv 8 wi) AINX TOD &CODETAII8I103;% 
NO 
BEGINS STREAMCS®(TANKLO J©CODE INX 100) Def CODEI)3% 
. BEGIN S1l#S3 SleSI*43 DS¢e4 OCT END; 
Ts K Ole OD&C CODE ae o. Bt gt 1: :% 


END3% Firat oe 

Fieri riatrieteney cisa7saderrec738 ge Soe 
BjelLodstngy PCouUF ’ i 

ae P(XIT)3 : 

DKUIS 

OKS3 DKADR=Q HEN % NORMA SEQUENT AL ReEAD#"NO ADDRESS SPEC 

DS1i9% If 10.1923) THENS ts “ 

DSPBITH. — TF TOD. Ceti) THENS 


: - PHEADER. 44 eae 
BEGIN WANKCO): 1ODR Gtr a1 EGE ori arent 
. GO TO EQF;% 
END ELSE* 
DSRTNt BEGIN IF FIBE17]80 THEN FIBtI7I*F16t18d, Ci6ti5) 3% 
fe gee me ene 0033045), RENDER ee 


PND | 


IF 100ef25%1) THEN GO TO CLOSED ELSEX” 
IF ae pine GO To EO¢r ELSE ae Te PAR ELSES 
: TA ; GO TO OSP 

READ OR. SEEK “ON + “SERIAL "PILE TAIT ADDRESS. SPECIFIEDe% 

POMKS# ABS COKADR Dede Le TAN pLOSELECT 35 

-DKWOR<O THEN GO TO DSRINS oe : 
DKSR3 a DK ADR>0 THEN GO TO p28 ELSE IF DK ADR™0 THEN® 

BEGIN IF CFIBE17 JeFIBC17 J=CODE*FIB(16).f33315))2CUDE THEN GQ RA13 

FIBLOl¢ REVeL&REV aa 11)+F 18 § a 


ee eae 


00508900 
00509000 


00509500 7 
00509600 + 


00509700 
00809g00 
00509900 


90510000 T 
-00540,00 7 

00510200 7 

005403 : 


00519400 
00510500 


00510700 | 
09510800 | 


OAS 4600 


00511000 
moet aee 


00311300 


0051400 ° 
(Teh S00 
00511600 T 


00511700 

BOO 
oosT1eeo 
00512000 


00512100 
00512200 T 
00512300 T 
Q 


00512500 7. 
00512600 - 


00512700 
00912800 


00512900 
00 3000 


00513100 1 
00813200 7 
0057: iC. 


00513400 
00513500 
00533600 
00513700 
00513800 


00513900 | 


00514000 
00314 ,00 
00 4200 


00514300 7. 
00514900 7 | 


2 (} ST SOO 


00514600 


00514700 fr 


00544900 


0155!0 
a 


016082 


01633 


016592 
016512 


O178h1 
—OL7att 
TEte 


019324 
019583 


021940 
0) 424 
0223384 

022620 


023010 


023080 an 


¢ 


ooset 
023813 
0 3 
023644. 
023783 
Osecte 


O244ta 
024520 


024510 
 Opaery 
“O2850% 


0250!%2a 
025230 
025483 
Oas7s2 
O257t2 


Z, 


02612 


00514900 7 02711 


00545000 T OB7310 = 
00545100 7. O273%; 


Data Documents/inc. 


~*\e 
FIBL7)]*FIBC7I]+REVS2 : 00515200 t O277%0 
IF DISKADDRESS THENS 00515300 t 027930 ] 
BEGIN PCTANKCOJ¢FLAG(EIB[16 ADDRESS» XCHse 3% 00515400 0280! 
PCFLAGCFIBLI9 1)» TANK» PRL» DEL) 3% 00515500 7 0282%2 


1 
2 ELSES 00515600 T ‘Gasety 
3 {_ TANK OleFLA L161)¢ 00 S700- 
4 00515800 peeatc 
5 90513906 029013 
6 ry - 5 : 
dle : FIBt16) st a3¢i5)«coDEewEMCPCDUP) Tw NoT 1] ,016815935% 0086400 T “og93t2 
8} ts FIStt92s PUSSIES ES CRCRYECKOOET® | 00516200 T O29841 
9 NOR. al 00516300 T...030017 
10 DKRR& PCXIT)3% 00516400 + 030083 
aM OKR: . Oo516410 T 0301!0 
n2 $ SET OMIT = NOT SHAREGISK 00516 030480 
OKRIE TE. OKADR GEQ@ 0 THEN. 00546500 1 0301%0 
M4 BEGIN IF pM ADR=0 THEN DKADR*FIBE7) ELSE FIBC7I*DKADR*OK ADR™ 15% 00516600 030133 
‘ HEADER? AOR THENG se Letras DOS1 6700 0307: 
8 IF DISKADDRESS THEN 00516800 T 030884 
7 BEGIN CODE*FIB(16),033%15)5 UNITYPE*FIBCA3 C1989 15% 00516900 7+ 031080 
8 K [¢0 P N N P DO% O0 N00 Q 2 
: $ SET OMIT = SHARED! SK 00917099 031510 © 
0” BEGIN If NOT 100.(1981) THEN BEGIN PCTANK)3 WALT END} 00517100 031540 
4 Pip OM ; site tee ? leh REA ES Hat awryh 
$ SET OMIT = NOT SHAREDISK 00517109 T O3lato 
IF 100602783] THEN GO TO EMPTYS% 00517200 T 0318!0 
S SEY UMIT = SHAREDISK 00517299 ° 


BS SS 2 F So BK 


IF (MEMLCODE) EGV ADDRESS)=NOT O THEN GO FULL; 00517300 T 
$ POP OMIT | : | 00517301 7 
$$ OMIT = NOT SHAREDISK 0n5:7300 T0399 
TANKCOJ*1LODGAL27F47I1 JGR 00517400 T O322%2 
PCUNITYPEs TANKe 13041 COMsDEL se DEL DEL D5% 00517500 y 0324392 . 
pd FIBC16) CIItLS J+ CODE*MEM(COPE*2) .CiBhiSjsy | 005437600 T O326%2 
i  FIBCLGDDC39FTSTeCODE+ TIS 00517700 T 033410 
P END} GO. TO ERRS% 00517800 0333%2 
j EMPTY : iT OES Z : emtace, otek. 900 0 
i $ SET Omit = NOT SHAREDISK 00517909 1 033634 
FIBCL3].C1089Je13 0051798C T 0336314 
p P(TANK(CQOJeFLA B16)» ADDRESS» XCHs © 3% 00518000 03383 


PCFLAGC(FIBL19})> TANK*PRL s DEL 23% 
FIBE13] .640893 +UNITYPES PCTANK)3 
MIT ® NOT. AREDISK 


00518100: 
00518200: 


034083 
Osdate 


7 


OOS 18999 
WAIT? 00518350 T maaan 
FULL § IF a 100.£2:1) OR FIBC5),Ci%1) THEN 00518400 T 034680 
B es —— MODES U0 7348 
$s SET WIT = NOT SHAREDISK . bh ey OE a . 00518509 fT 034910 
, “ CODE*13 GO TO PPARs | 00518550 T 0349%0 
4 ae OOS FBR BO FO 3R6 
$ SET OMIT = “NOT SHAREDISK 00518569 T 035074 
IF BLKODESO THEN SFULLIPCFIBCI8I +6 33315] 2RTNDE 00518600 fT O350%1 
TA NKCOJ+1Op ac +DKACR MOD ADERLO] 0812) )% 00518700 Q3523 
s me KCI*FIBCIB)» Sos ical) dais: Moai aug 00518800 rT 035881 
PCARTNDEA ee Coes Lat dee . 00518900 T 


0389%0 
0.359% 


00519000 


IF NOT FIBtS). C184) THEN 00519100 T 0359%2 
BEGIN. 00519110 FT 0396033 
$ OM Ls NOT SHARE K_ 00519 19 T_ 
00519180 7 Q36143 
; P| fy: J Me are fe ud 64 i. 


@ @ 
CODE*13 GO TO PAR3 00519160 T 036433 
@ END3% 00519200 T 0363380 e 
DK ADK AL ee a SOO TOGA ZIO 
IF HEADERET J€DKADR’ THEN. GO TO SFULLIS 00519400 7 O364t2 
® IF NOT DISKADORESS THEN GO TO SFULLSx , 00519500 T 0366%0 |@ 
AOS er ‘6 pe : 0491714 3% GA00 0.34) 3 
FUR 10 “STEP 1 NET UNITYPE Dox METTY. T O37180 le 
8 $ SET OMIT = SHAREDISK 00519799 T O372!0 : 
| BEGIN IF NO AMALE DELI EAD HEN BEG N PCCTANKEIIJ})$ WAIT ENOSR 00819800 O372tg |e 
: “OM (apa mene ane , 00819801 T O37to 
® SET 00519809 7 |@ 
ea. a QOO608199000:. 7... {9 
SET 00519999 T 037884 io 
& | 00520000 T iI@ 
S POP 00 000 
: Teer nem = , 520 
el Foden ierai ME 4 @ 
7 $s SET OMIT = NOT SHAREDISK | | 00520209 T 038680 ~ 
@ $ SET OMIT = SHAREOISK 00520299 t 038610 |@ 
PCT ANK | t IE a a ———________90520306 T 0384630 8 
: POP OMIT t, coe 00520304 7+ 0388%0 "9 
or. FLA 1920 eTANK*PRLSDEL) #2 00920000 T 038810 4@ 
Se cODFemEMICODFa2),618115);% 90520500 T 03898 a 
RlEriai. (338 15]+¢CODE+43% 00520600 7 0394%4 29 
@} GO TO SFULL3% 00520700 T 039683 _3@ 
a= EME eR ce tee ieee aeeen eer $-- 
a Moe : | ; SET OMIT # NOT SHAREDISK: ; | 00520719 0397%4 2 e 
@ a‘ oe: : | ARE : : 00520799 7 039784 i 
£ 27 =: AM rr R Bat: ADOR X Cr 2 Re eee Te DOS 20800 0.397 2 
20 fF . $ POP OMIT . 7 . 00520801 T O400te 10 
2OF FIBLL3].Ci0s9le13% , 0os2000¢ T O40at2 i 
3 Py, __ BCIIDI EC CODE +s. ANK PRLaD 3% 0 000 040380 : 
: ee 00521400 fT 040684 
Oo bo Pitt : “7 ; «" END34 besetioe f Saoesd 
PCCNOT 1) INX lOnstascannet G0 TO SFULL3% 00521400 T Oatete 
@F x 00521500 T 041540 of @ 
. JRi FIB 2L4 i: 1¢U3% 00 600 T O4153 6 
ee 60521700 T Qaitie 
@ : | 7 Ooszi8dd T Ous712 1®@ 
: 1F DKADR. TF} THEN PCOKADAUTANIGS TESCO GORANI TOE O41783 
@ er 19031) FIgC3}¢0; % PREVIOUS ERRORS 00522000 T 042340 /@ 
J -N GO TO s_& PR AB : ; 
+CFIBLIG] #00410). THEN. & PREVIOUS NO@[NPs SOUGHT OoS22200 7 Od2ut 
On TBL191,010199,7ANK 1 +11 2COM>DEL sDEL»0EL)) % ROTATE 00522300. 7 O427t: 4@ 
5 CIF TANK(NOT 4380 THEN (NOT 0),[93: LSEX ta toleg P y O43083 ee 
6 DKADR. »CCFJx60 & PARLEV247%1),- 00522450 Ou3482 46 
@ OKADR ne £7570000000000+ TANK» I» 119COM*DEL DEL sDEL)) 00522500 
- 00522700 T O44at? 
@; | doszas00 Oaaata . @ 
| | 00523000 Te 
OF FIBEA7 603 00523400 7 O4aato =| @ 
ial DK aD. CFF THEN PCXJT)3 aa 00523200 0445s | 
e p #0 TH Ref. peedaat iO) Ts ANKs165116C0M) ELSE 5. we e 


Data Documents/ inc. 


S ry 5 a 5 * a * 3 5S eS Th x. >. >. = 
> O So & os G & oh 2 5S 2 & a 3 


PCXIT 
DCNIifs PCFIB (ie INX O» TANKs IF CKADRe C221) THEN DKADR,CFFIx60 ELSE 
(NOT 02 Gs39J]» Op Ons O» He COMs 

DEL» DELS pene DELs DELO: 
re POLISHS. oe vege . ae et ee ae 
JU DRE OS ¢ ANKENO e({ is 1 
TANKENOT 4]¢ JTANKOCNOT Side Q3 
IF ¥ THEN POLISHCFIBC181.C33%15]-RTNQS 


ai _ROLTSHCAOORESESHKS? 9 BLKENTRLIY 
ADDRESS C1805 #13 


SF NE TLSHCTANKs 

OcN2%3 POLISHCXIT)3. 
$ BESE! ene 

E 


EONMENT eSPaL GEACION OF ALGOL READ INTRINSICK 
BY LeRe GUCK 12/1/764% 


“ AOTRS 
FILK eS 


TENC* 19% 
FRMTC¥I5% 


FIsX. 

DKADRIR: 
il 

PARL3 4 

BEGIN ee: LOCAL VARLABLES3% 

NAgs 

“ALGOLREADR13s% 

SELECT#145% 

INK1 @ 
LSTRNS1933. 
BLACNTL s 53% 
SAVEBUFFSEOFLs CODEL=PARL 3 


NT oo REXPSFERMT PR | 
if ARRYSLISXC*]58 
Mt of W a ie We el 
REAL F = 403% | 
REAL TLSTRNSF 445% 
REAL BUFFSTILSTRN443% 
INTEGER BSIZERBUFF 413%. 
ARRAY. - FiBeOSIZes4te lax 
REAL ADDRS BF 1 B413%. 
REAL SGNZADURS#+13% 
REAL WT2SGN4+13% 
REAL WLSWT+1 3% 
REAL CGR =. Wie prac = Wass 
“REAL WeeWiel 2s 
REAL TYP s 
REAL Dew2+js% 
ESIGs 03% 


Di=D+ 


00523600 
00523700 
00 3200 
00523900 
00523950 


POS P4a4noo: 


00524100 
00524200 


eO2e0031 


ae Fike Oans WORDS 
00800000° 


00600200 


00600400 


44 


00524650 


00600100 T 


CngOdsg0.t 


00600700 
ebconei a 


dosoiocd.s 
00601100 


~O0bH1:300 


00601300 


00601400 


00401900. 


00002000 


e 


"00602100. 
| 0002200, 


00602400 
00692500 


VAG60 AYO 


00602700" 
06602800: 


00602900 Tt 


00603000 
00603400 


00603200 
00403300 
00603400 


UO060 3 oye 
00603600 
peer 


+4 


44 


045934 
045920 
04643 


046683 
prone 


900010 
“Ente 
000080 


900010. 
ONO TO... 


000080 
000030 


000080 
~ 900010 


HO0b10.._- 


000030 
Q000t0 


“y O00010 | 
000080 | 


0000106. 


000030 
Q000%O 


~ 90008O 


Oo0otO 


good 
000080 


‘000080 


QO00080. 


oo00ta 
000010 


Jovale 


000030 


VOOd FO 


000080 


000080 


Data Documents/inc. 


. 0 OT « oS Ss a 72 ee > 
i 5 & on © & & C, ‘x Pe op 5 tf 


REAL CHRESKIP4+13% 00604200 fr 000080 e 
Ree FAWSCHR+15% 00604300 T 000080 


CODE SF Ab ——— it it DOA Oe OBO TG 
csizescooes1i8 . : . 00604800 T d00010 
| 00604400 7Y O000t0- 


INTEGER 
INTEGER 


REA a oe ee St a OO 604700 _OO0016 

REAL UDECLH@FLG+13 00604710 T 000080 

LABEL GAsGAC+GRTY eG TG4GTCe GTD+NUMKI TS 00604300 ft 000080 
RE P TWO, NO » 3 00460490 OOOO8O _ 


00605000 7 O000!0 
00605109 | -20G0t0 
S O8300 7. 000010 
09809 300 0000%0 
00605400 000030 


” GETCOMAsGETC1aMAXL? 
START CT sCTAsCT Be CI Cod 


Seri TETTONGS CLS oacs con 0000%0 
RTYPEsRBLF PRE APRIPARTs RDONAPRDONE? RF CoREXP 2 00606900 000030 
; 00606400 oKeLoKok elm 
00606200 7 o000!%0 
OUTSFTYP ETYE | 00606300 7 a000!0 
COMMENT. ‘LABELS “ARE LISTED 7 SAME ORDER THEY APPEAR}% 00606500 000080 
DEFINE P= POLISH#s 00606600 000080 


= OOO0QOR 34 fries DOAC4 : 000030 
SUBROUTINE. CAPO: COMMENT. CHECK FOR PRESENCE BITI% ‘ogadeage [elereren me) 
BEGINS . ; : | 00606900 Tt 0001t0 


a! : Nx OHS oF O60 O001 26 
BEGIN IF NOT PEN Ciel) THEN 09607400 00d02et, 
BEGINS STREAMCACCREALROWLOI)2B°O)3% 00607200 000383 


B N SI¢A HIeA; *S1*%16 0060 ee 
SKIP 2 S833 | -~ -- 00607400 
IF SB THEN TALLY © 45% : 00607500 
A ¢ TA f 


00052 
O00st2 
oo06t3 


“000783 
0008to 


END3& 
IF ee P THEN’ 


00607700 
00607800 


At HAAHA AH 


PERM eC LB4LS] © aT 00608000. 
END}. 00608400 001140 
ae | oes 


001180 
001292 
001282 
001483 
beget 


00608300 
00608400 
00608500 
00608600 
00608700 


SER eee 00608800 
COMMENT RELEASE BUFFERS® 00608900 
BEGINS’ 00609000 
PCXCH)3 COMMENT FLAG TO TOP OF STACKs% 00609400 
TF ACTe2 THEN cOsuENy AD RECE RSET 9200 
ae SHOMKSs ALGOLREAD3% 


N bos gee 
BSIZE ¢ REALROW, [atiojs % 
END ELSES 
BSIZE*POLISHC(MKS»DKADR» 1eFILX» ALGO READIES 
dea aed aeueroe tens be 


THEN: 006094 500. 
BEGIN’ CETRN cd TLSTRANES 00609500 
IF FILXel18315)]>1 THEN 00609600 

FILXCNOT AJeFILXCNOT 3)¢0 ELSE 00609700 


001933 
Q0214!0 


en es nee 


4 a 


ENDI% 00610100 T Q029%4 

CKPB3% 00610200 Tt 002984 @ 
ae 3 PsSGN ; } =PHRA a OO410 O OO3030 
BEGIN cSiZe+exesize1 "BUFF ¢PCO» CQUFF 160% INX) END 3 00610220 7 003013 
END. READSIN ae : 00610300 T 0034%0 
MME BRO IN USED “2 FREE FLO” : NHAGO AON: OA TAL 


00610500 yy 003484 
roared bs 003540 


SUBROUTINE GNCRs4 
BEGIN 


oT , : cae Et 
Gate ae WT > 0. THEN Go 10 Ga beet 

ie oF at? COMMEN FEER P + 3614. 

P(O)s% 00611400 003684 

Taare 00611200 003612 


“BUFF ¢ Peglosteureieceniig. 


, sot eS ogetisao + o03et1 
COMMENT eet cen ee BUEPEn IS > . 00611600 004043 
RE AS : ; = HDO44' 206 Ooseons 
Ps ¢ Ok 006118900 T. O04;4%0 
p4 + BUFFS 00611900 7 O041%4 
° ee NWT } 6.233 0.9.-6- 5.0.0 O0-4-4- 
Ple TYP) 5% Se Ss 00612400 7 004410 
GEGINS | ‘ . Gos;eR00 1, Besa le 
: : ; 0044930 YB OBe: 
Cl « CI + Plies 60812 a00 T. 004413 
GO TO FGNCS” COMMENT DEBLANK®#*THEN GET NCRSS 06612500 T 004584 
) Q N00 164600 09 : 
; RGNCT P3CtF Scat N THEN JUMP. OUT TO @Nchc3s% 00612700 7 00453.3 
5 oe oie Set tetis 00642800 ¢ O047ty 
§ TALLY |e: "Al + x 00412900. Doar! 
8 COMMENT Tee TURN A -1 IF ALL WERE BLANK3S% 00613000 ft 0048!0 
Y il . DI « LOC P53% . 00613100 tT 0048!0 
~ pe | _ S_¢ 8 LIT "#000900i"s% 00643200 T OQ48t 


: GO TO CRINSS. ioe . 00643300 7 O0G4912 
GNCHCTH sie e ae + 1k : oe ; (00613400 T 004943 
«* : : 


00613600 
shia nent 


005014 
eee 


Pa © 8) ea 00813900 7 
ENDSX ae ae 00814000 tT. 005134 
PMTs XCHsSUBs WTeSTD)S COMMENT WT © WT*TALLYJ% 00614100 00513 
BUFF ¢ P3% 00614200 


IF PCDUP) < 0 THEN BEGIN PCDEL)S GO To ENDs& 00614300 


00614500 


REAL S 


00614505 

= 24 " op 4 F f} 74 A, : i Sige 2 
IF LSTRN<O THEN GQ To ERROR ; 00614515 7 005630 
PCADDRS» ,ADDRS»ISN) 3 00614520 tT 005781 
ADQORSe, ISX 3 = ——— sie ) _ 00614525 7 OOSAIO 
TLISTELENEN Be MR ICES ae ee 00644530 7 005843 
ENO OF PS TELEM TRS UE NEL asa a ER ote a OE Re 00614535 T 005940 
is : ae a ee ” fe, Sa ee eee Pee 00614400 T OO59%4 
Rowe e DECLARATIUNANS FOR Us PHRASE # * *& 00614605 T OQ59%4 
% NOTE at CST REFERS TO THE CONSTRUCT BEGIN SCANNED, THE eet, 1s aS tT 009981 

a wR» AN UNQUOTED STR TED STRIN ss fs 00598 
LABEL DATA ERROR, no os opeiaedo 7 OO5or1 
“PHRASE EDITING. say aan ~ Gb6 14628 . 905984 

i ONDER eo eee inet Ub 


i - 8 a: . TS cs .3 
& s 5 an ve x Ss ob > oO 


Data Documents/inc. 


r @ 
ULI r %% BRNCHTU EFFICIENCY IN UCH, 00614635 Tt O059%]4 e 
@ UL2 ; %%% BRNCHTU EFFICIENCY IN UCHECKT 00614640 T 005931 
Lae HARA rit : ; 3 )) ° 
%% BRNCHTO | STRING*HANDLING LOOP. 00614650 7 . le 
e ' “BANCHTO F UCHECKITC@END@OF “CST) wOSst6Ss ae : 
Ae. x. A ). £ fA fi : eb 
FMTERR BRNCHTU FOR FUCEGaE FORMAT, rrerre T 005984 ie 
 ] DEFINE UEXP z WT #, IS VALUE OF EXPNTCOF cst AS NUM)» 00614670 T 0059%4 : 
E 6 
i FOR” THE 1*ST CHR OF avaTeo StHeNG 00614680. 005984 : ‘le 
eo , ae ts USED AS TEMPORY BY UGETSGN, 00634485 T ? 
CST & “So MUST BUILD UH INTO UBUFF 00614695 005981 10 
© IS > 0 IF SHALL BRANCH TO ENONUM 00614700 T O050%4 |@ 
& a : 1 
ax 1S” ALSO USED AS TEMPORARY COUNTER 00644710 T OO59' " 
e OF ocr DIGITS IN OCTAL NUM PART, 00614715 7 005981 — | @ 
: : HAgrl 70 F  -00 : 15 
AND i USED AS TEMPORARY STORAGE. 00614725 005934 
@ UNUM = D1 ¥» 34% 18 TRUE IFF CST 1S NUMBER 00644730 T O0059%4 |@ 
DONRS 453 OR A.D OF Q_______O0 614735 7 Q0598' 7 
% BY THE ULIST DEFINE (BELOW). 006144740 7 OO598y e 
er UH a b 4S CURRENT CHARACTER OF CST. 00614745 + 005934 a 
‘AUF a ae o> He x HAR NO4614 () “0o08¢ : i 
R ERS ALSO 18 USED AS TEMPORARY = 00614755 T Q059%4 oa 
@? %%% SUBROUTINE UCHECKITs 00614760 7 005914 “i @ 
' nce kA y 8 OR ere J £4. 24 
al USCHONT Is STRING CHR. COUNTER FOR UBUFF. 00614770. » 005984 2 
@ UDEC: 1 18 VALUE OF DECIMAL PART Op CST 006144775 T 005984 | @ 
P 12% AND 2 A OOB1E7 RO O0S¢t 2 
‘ B%% USED AS TEMPORARY STORAGE, 00614785 T O0059%4 a 
or USGN SGNel4731) 1S TRUE IFF CSTCAS NUM) [S NEGTIV 00614790 T 005994 of @ 
| EXPSG SGNel4oty) [RUE _IFF UEXP Is NEGATIVE 0061479 00598 : 
ial a UP B® SGNeC45t1] #s %%X 1S TR l tN OR JUST USED UPHRS 00614g00 T 005984 i 
4]  UNLQCATED & wsbQeti) #945 TS TRUE. HAVE NOT LOCATEO CsT. 00614805. 7 Oosary @ 
‘ jJQSTRNG “SEN, 1D be aes 7 UE IEF cST 1S @UOTED STRIN 006148 “00898 3 
ULIST Bataehnl #, 42% 1S TRUE FF UCH ae TRIED TO GET 00614815 T 0059+} é 
Or %%% AND/OR HAS GOTTEN A i brs ADRS 00614920 T O059%y 1 @ 
é ua = SGNel 3626 1%% STORES OR NA U 0614825 00593 36 
p = SGNel30%6)_ , “STORES ORIGINAL VALUE OF foe 00614830 7 005934 37 
@ UF REEF LELD® Sanel2gti] te BER TS. E IFF IN SPECL ¢// FREEFIELO ng8 18889 7 005984 3 @ 
2 ae ARO BE : P( O22 R , ND 4 _ 0061 as N05 9 39 
UGOOFEDCUGUOFED1) = BEGIN GeveeueOnee si) GO TO UERR END #» 00614845 T 005984 e 
@ VEON = WSUCHCNT @ 00614850 T 005984 41 
: ALL DUN —__*_ GQ TO BR # § 7 = = 006148 00593 42 
SUBROUTINE UGNCHS 2% UGNCH GETS THE NEXT CHARACTER FROM THE 00614860 7 005984 4 
e ‘BEGIN, = BRK BUFFERS Gers A NEW BUFFER NHEN NECCESSARY» 00614865 T 006080 4@ 
" CHRECSTIZE Po ADL STs. AND BUMPS C0614870 0060%o 45 
THEN BEGIN “$8% WE NEED A NEW BUFFER» CALL READS TO GET ONE, 00614875 T O060TY c 
 ] _WVGETRECORD 3 %%% GET A NEW RECORD. 00614880 T 006184 0) 
| THEN UCHONT* Te ee aes CATER: FOR NEW BUFFER SCAN, "00614890 7 006310 ‘e 
Or. END 3 ae 4 , Go61a9 5.7. 006510 ae 
; mi a HR+4 oes i Ch R co ER A900 MOOS 45 é 3 - 
STREAN(PL® gs P2+BUFF 1PO+0) } %RX NOW GET CHARACTER AND BUMP BUFF weetng cscs 006631 5 
@F BEGIN DI*LOc P23; Dieple1; SleP23; DS*CHR3 P2eS} END $ 00614910 T 006783 sj @ 
FreP 5 23% BUFF [OQ NEW ABS ADOR BUFF +1) 00695 5 
@ * 56 @ 
: RIGH 5 
@ @ @ 


Vata vocuments/mc. 


UDEL TMGHK eUnens” OR uh=”" "© OR Uhe"*" OR YEOW & 
DEFINE "UGHECKIT = “TS¥® UCHECKIT 15 USED. WHENEVER THE SCAN HAS 
Po EN Sg BRS TERMINATED» 


goa UEHEC PIT ATLL pasiTrdn UH APPROPIATELY 
Bax (PRIOR TO DELIMITER CHECKING) IF THE 


FP Vistas THEN Ua 
: "VE x N en CU 18 Fy “eh i ce oy AN p “aM 


BEGIN ao 
UQSTRNGeUBUILD©Os W123) DeUd 3 
ak% S 8 


a: 


@ 
BEGIN %%% ANO BUMPS THE STRING CHARACTER COUNTER, 
@ UBUFFeUH & UBUFFC12918830) 5 
HCNT¢ SHCNT+ ; 
1 END OF UBUFFIT 3 
@? peer oel UCH 3 %%% UCH 18 THE CONTROL ves uence. Uc WATCHES ouT 
3 BE Y OR END*OF ew: AND» : 
4 %%% QVER IN*LINE COMMENTS es AND STGRES NON= 
@; B4% BLANK PORTION OF al IN UBUFF FOR FUTURE Use 
6 
7 %&XX% HANDLES” END=OF *RECORD. SITUATIONS’ ae OR ©), 
@ Te VEOW ea os BER rr HAVE HIT ‘toate CWHFTELD WIOTH)? THEN 
9 “ it te a: oe 
jo IF UBUILDZO R32 IF WE “ARE NOT IN THE. STRING SECTION» WE 
er eh BEGIN PCDEL)3 GO UENONUM END %%% BRNCHTO END@OF =NUMe 
N12 
_ £LSE oY ELSE WE ARE STILL INSEOE FIELDSWIDTH Weer 
er. _ BEGIN BRS STILL. SOME. FIELO ale LEFT. . 
5 : ey gine UG “He ne 4 fy ne HON iT +. . E2R8.. RTE Rs. § a rik NT R 
8 IF NOT UQSTRNG THEN 343 NOT IN. . QUOTED STRINGe 
@ 7 mee 
8' ILE aa OO : K 
9 ~ BEGIN %%% tye aa AN INLINE CHMNTC"/ e092) 
er. “00 UGNCH UNTIL Sail OR. uHeren OR UHwmen 3 
1 ala’ ES Hy. See! 
: BEGIN 
@ | IF UH="s" THEN GU TO ULL 3 
b UH satel ¥ 
: BEGIN: ‘CHRECSIZED Ubi? <UGNCH END 3 
or END dor ot eee 7 
' ie ; : : ae ‘ . oe 80 oe . : F ; 2 
Pa . TF UH3"e" THEN &3%% We SET UH®DELIMETER» AND IF THERES 
@* BEGIN %x% MORE LIST» WE GET A NEW RECORD, 
0 aan ; He RNZO THEN UADoRS+¢ 
ae / a oe NET Le  SGN#SGN OR 32 3 33% SETS ULIST = TRUE. 
er wes i ' SR ES i sae LSTRNZO™ THEN ‘UGETRECORD a 
a IF UBUILDAO S58 HE HAVE NOT YET IDEATIFIE0 CST? 
@ THEN UBUFFIT #  %%% SQ MUST SAVE UH IN UBUFF. 
(36 . ) « 
gia eh SEND ge 7 _ 
ais SEND OF UGH Po se Be 
‘ i AQOLE AN SUBRMUTINE UDELIMCHK 3 x5 1s RUE | Y ENCOUNTERED & 
e : BEGIN %% DELIMITER “NOT” IN A QUOTED STRING, 
Ou 
& “4 
@ | 
@> 
@ 
rd) 


KIT CHECKS: FOR THE PROPER: 
! , BRA 


00614935 
00614940 


10 4 * 


00614950. 
“OO ERRSSS. 


DO46 $ 
00614965 
piel pana 


00614995 
00615000 


0044500 


00615010. 


00615015 


0081502 
aonisee: 
mopteose 


JWOAtTS OSD 
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END; 
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co 
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ENDS 
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__STR 
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TF FR 2 0 THEN oe 
' sco le COMMENT ‘NOT ye ‘st. CALL ‘ON: soeT ‘So PILL DATA PROM: Q1SKy: 


OcDA «+ 0 


ne oe eT Ty VE 
BEGIN STePisP3COse32 MOGI DS eae WOS)5 Dsep2 wOS END3 


a ORL « ORS; 
lie I< con po 


IF I < TR THEN 
POTREANEP TEAL nore RECORD ne se es 


R 


STPP ¢ earner 
0 


PCMKSsCVNJeC2xSdelelels lo BLOCK D3 


am btE 


* 
ARR A 


‘tet « TB0s 


EeEnOWP I; Ont (3 CUNe Dek aE 3 
PCCOOTOPI)# WAITS 
H 


al 


R 
STREAM(Ae# {DATXES3 17 868" 10 G+P (DUP), 13616994 
‘BEGIN Cees rege o¢ ppneenosy 


\ R 


BCNK Ss #CDATHES)I)4 IF NOT aC TREN pai etic PCHITVALU)3 
DA — ROM 


% OPEN DISK FILE 
: SLEEP UNTIL FILE IS OPENED 


VEL) ¢ "NFLAGC(*CDATXE1)1)&10164331153)3 


ENO 
fe Teas 
ENDS” ny 


QUTFIUL13)» Ce7til « O03. 


a 


OF tN 


2 SET TO OUTPUT 


ey a eee Or244COMsDELsDEL 3 


r = 


TO IBA 
OG OR AC 


¢ORS®*? 
ELECTS. 


THEN. 


ated 


sia SI ¢ Phs. 


F VLOW < MS s_INTE 
BEGINJSCOMMENT MOVE NEXT RECORD TO OUTPUT AREAS 
PzeReP3¢(P (DUP 


a 


NREADS 


obj 


END. Evita FILL. Loors 
 GETRO 


RY A £4 


END FILL OF DATA: FROM Disks 
EGIN. 

FOR VLOW ¢ Y STEP 1 UNTIL S- 1 oie) 
BEGIN COMMENT FILL DATA FROM INPUT FILES 
F_VLOW # 0 THEN 
IF NOT EOF THEN: 
. baat Laaeltneld MOVE RECORD FROM FROM BUFFER TQ DATALVLOWs033 
pA: Pp 3616 ye 


x 


+R 


Pt 


ke 


cpie sCOATXCVLON13)5- | 


N 


4 DUR? 


R 
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AT_N 


ONS¢OR 20408 


iy 
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T R CORO 
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GCDA ¢« (LOSA © QUTHEADCORI)) + 13 
AR ¢ORI3 
* FRET COMPARE 
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+TBO3 


HOTOP] y5 
P2 wOS END3 : 
(RECORD AON, OaTatvionso3 
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07 
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OOF4S7O0. 
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00746000 


00746200 
00746300: 
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00747400 
00747200 
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00747500 


+3 
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00748300 
00748400 
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OO7 8B Add 
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00749600 
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047783 


"051583 
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@ 
IF NOT EOF THEN 00751300 tT 0546%0 
@ BEGIN COMMENT CHECK IF NEXT RECORD IS SMALLER: 00751400 7, 054632 
A HEN P(QO K Oe * N Dee ee se Ps 054 ° 
ELSE” AF AC THEN PCO*MKS»#£CI10016VL sEQUALS) 00751600 7 054983 
e _ ELSE RORREIRAL OF EAL OSEOUAL SL? . 00751700 7 085340 
IVE OWT @ NFL Pe COarT yr : OA7e1A0O ©. peeve 
STREAM(P1©*[CIIUD I» P2eR»P3eP (DUP), [3616]}»Pqe# {ATX [VLOW]})} 00751900 7 Os6L 40 
e BEGIN SleP1sP3(0S¢32W0S5DS¢32NDS 93 OS+P2 WOS ENOJ 00752000 r 056383 
. MC} a. 2 ORD 4 f p WS pon oe ee a eo OO SHAT O 
ENDS 00752200 + 056610 
e IF NOT ‘OISKFULL. ‘THEN Go T0 1P¢3 00752300 YT. 086610: 
NGS ; ; 8 6 OO ee: 
COMMENT END UF STRINGING PASS OR NO MORE DATAS 00752500 ry 056633 
@ IF NOT DISKFULL THEN % CHECK FOR RECORD = HIGH KEY 00752600 -T 056633 
LR MS? 0 Posse Sean Site een tate tet oe fon Fe ole 05673 
IF: Wien 7° VETd,t188153) ‘<< MS THEN GO TO IPps - 00752800 7 O872%0 
oH. — MOREDAT A: eM Se Be 00752900 + O575ty 
OR a ! D> tess bra . a OO75. 3000 d OS 7HIH 
IF NOT Ville (5!1) THEN. 007531400 r 0580%4 
® BEGIN VEI] «. NFULAGCC*EOATXCI1I)810 1813341595 00753200 t OS581!2 
MOR DATA ©¢ RR een 0 00 “Lt. 
OISKFULL * TM ANDO ONS .2 Mm “OR DISKFULLS 00753400 7 058543 
or. IPEP Ey WRITETAGS WRITE. STRING TAG WORD IN FRONT OF STRING 00753500 7 O588t2 
: D HEN: GO e ’ O06 £00 O59020 
IF MOREDATA THEN 00753700 T 05940 
@ 7 IF NOT 1M OR ONS < M THEN GO TO IPBA 00753900 7 0591%4 
Psy Fm ¢ NOT. TM AND ONS Ss M$ 00754000 7 O594%4 
@ IPGStEND SORTIT? | — 7 00754300 T 059634 
F FRCETLAESOE CTRL EIR ALELAE LEELA, © t. ee 4500 O8973 
pe SUBROUTINE wERGEIT3 % MERGES M STRINGS TO y STRING sone 00 T O597%4 
OF BEGIN 00754400 T 0598t0 
‘ M t IRSTSELECTS eee ats 754500 0 see 
2 (gO TO MIEs | ee ne : Pos 00784600 ft 059980 
or MID? LOWSELECTS oe tog ees 5 e 00754700 + 059982 
‘ Mres VEOW.< MS THEN nee 00754800 040110 
. BEGINE ’ MOVE LOW RECORD 70 SuTPUT FILE 00754900 r 0601'3 
e STREAM(PLeVLsP2eReP 3¢(P(DUP)) 3686) ePhe*(COIODI)S 00755000 Tt 0602%4 
6 SEGIN Sleplgp S¢32W0S 3pS¢32ZN05)30S¢ p2 WOS Fer Pee OQ? oe 0605%Q 
WRITEOUTS DISKREAD? er ee 00755200 T 060784 
er GO TO MIDs ar 00755300 7 060980 
s END} ng 00755400 7 06093 
FOR f ¢ 0 STEP 1 UNTIL 152} Do % CHECK FOR RECORD = HIGH KEY 00755500 T 
6 IF CVLUW © y£1J).e018812]) < MS THEN GO TO MIE3 00755600 T 
F_NOT TM AND NUT 957 
Ons - BEGIN COMMENT HAVE MERGED mM STRINGS FROM INPUT; 00755900. 
rd WRITETAGS 9° &o" 70 ONE STRING. IN OUTPUT Select Gor asad. 
| SUBMERGE? | ORE STRINGS To MER 0 
GO TO MICs cause co 
@ END 00756200 062182 
00756300 06212 
oy. ae oe eee eee Le tl ke a 00756400 + 062433 
@ STARTS oe % INITIALIZE SORT PASS 00756500 7 062133 
sil _BLKCTR + BLK CTR. + (CAC © R20) OR MFDS R + ABSCRI3 00756600 Tr  0634t2 
IF AC THEN IF CORESIZEe*li1#11 THEN % IDENTIFY COBOL68 00756610 7 063831 
@: BEGIN ACe3$ CORESIZE+ABS(CORESIZE)3 | 00756620 T 063993 
5 : R « 00756630 0642!0 
ak 00756650 7 O0643%1 
Or gorserog ¥. 064344 
: OOF RSP EG. 068343 
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DISKSIZE ¢ ( IF DISKSIZE = 0 THEN 1000x600 ELSE DISKSIZE) 
/_(BFx19xR)5 


“IF DISKSIZE § (Ye Tao DIV BF) THEN. 


OISKSIZE « Y + Y ELSE. 
WHILE COISKSIZE MOD Y)£0 
oD* Dx Ys 
COMMENT SET UP DISK OUTFUT FILE AS ALGOL FILES 


a 
“OUTFIBE 8) @ (DISKSIZE OV. Y)@2001593831013— 3 # ROWS) coy SIZE. 


OUT B13), heal ba OUTFIBL13). CLt9)s 


41.721) ¢ (CAC AND. 2 ea COBOL 

OUTFIbL18] ¢ “(XeTBQXR)&X [3833015] @XC10933815)3° x OISk BLOCK 

IF CY*OQUTFIBLAJ« Ci2%12)) < 1023 THEN % FILE # TO FILE INDEX 
U ; QUTE : 41 6 Ye4 ran gt 7 Js 1 1473 


PEN DIS OUTRUT. LE st Dur. 6 “AND 
WILL POINT TOP 1/0 ay PAST DISK ADDRESS} 
ECLDOTOP I £0112 rade Astras 


DSK SORT Fla 
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00757800 T 
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00759300 
oraeee 
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4 * * . 5 a ‘ a amr a ae = aS x: ~ x 


IF NOT MOREDATA THEN _ 


: CCINFILJ+3>COM*DEL? a | 
LSE PCHRSCOLOS CINFTCINGT Zo iaeercR)) 


IF INCOUNT = 0 THEN PC1, COOTOPENOT 2)),86017,COM)3 


ENO: 
F_ MOREDATA THEN 


BEGIN COMMENT SAVE CONTENTS OF DATA ON DISK) 
TR © OF OCDA ©. epee hatte ha eels I + rks 
—- QAC: +. TBO} ORL. «6 ORS 
WHILE I < 5 QO 
BEGIN 
NOT vi 


“BEGIN fo ae 
: To Te ts oe ee 


BleetOAT xt1 11 
BEGIN SLleP13P3(DS*32WDS 3DS+¢32WDS )30S¢P2 WOS ENDS 
Pp 


PCO)E DISKHALTES % WRITE BLOCK 


END; 
aC + AC&EOF(2147+1]&MOREDA ALLEA7 HL 3 
MM URN: HA | IB A 
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00765700 
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WOFHFOUO | 


00767400 
00767200 
00767300 


on7eesod. 
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4 bh 


PCCOOTOPL1JJ)s WAIT; % WAIT FOR FILE TO BE OPENED 00762100 T 077733 
ORI «+ 93 eae MOREDATA « TR ¢ =13 00762200 7 oot 
PINOT 233081017 sCOMs % TOR 84 00762400 7 o7a3ts. 

Be aba FILE THER ‘OPEN ave IF PROCEDURE THEN 00762500 tT wee tt 
06762600: 

IF IPToG THEN BEGIN. IF “AC THEN 00762700 T 07861} 
BEGIN. ENDQ@. « a oo nee ¢ aR END} 00762800 T O787%4 

BLO = OO 6.3000_ AO $s 3 

a3. “TREN oe *¥ COBOL68 00763050 7 

i : CX 180 « i CWAINDS . Qo7631;00 1T- 

Eee LN eR NN: 12 Dur otnt me ’ ) als -_G07634 50 TPB. 

END END ELSE. 00763200 7 079634 

BEGIN COMMENT CHECK FOR ALGOL OR Cea 00763300 T O796%4 

AC. THEN BEGIN PCMKS» (NQ N QF CR 00763400 07963 

ene te AC, (46r}2 THEN e: ‘cosaLse 00763440 T. O79984 
BEGIN een - StWAINGS : 00763450 tT. O800t0 

ee WALK NE tno’ “3 ))] 920 8 Oe XC x O07TAIBHO Ondids 

Quer Dts Or LOD» 0» COC* DEL? DIB OstQD)3 00763470 T 080383 

END END ELSE BEGIN % OPEN ALGOL INPUT FILE 00763500 tT Os8dellt 

[Ib « « NO ______907634600 + OA06! 

TPRFIBL13},(27812 @ 4h OM as 00763700 T O808t2 

_ PKS Or 3s LINFIL» ALROY EL} 00763800 T 081110 

Pg ee ‘WD! ON7F 44500 081312 

END, 00764300 T Q81282 
IFCAC AND. 3243 THEN CIIUD ¢ CINFILI3 ee T O812%2 
ORT? 00764. 0815.10 
 SORTITZ & SORT INPUT FILE INTO STRINGS. 00764400 7 .0815'0 
ae Oia oe ee ee OOF64600 T O816%0 
EnOSORTPASSs = CO NT TURN BACK WHATS | ONGER NEEDED AND 00764700 OB1630.. 
~ INITILIZE MERGE pica 00764800 T 08160 

IF EOF THEN COMMENT CLOSE INPUT TAPES 00764900 T 0816!0 

76495 i 
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Oai7s3 
0 8 
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e | g 
STPP ¢ P(MS © MsDUPs ADL? 22SUB)} 00767700 7 085344 
@ BLKCTR ¢ BLKCTR + 13 00767800 tT 085582 @ 
OMM D AR 2K OUTP ; 00747900 OA56! 
1 1TNK © OF, 00768000 T 065633 
@ |: PWKS #20» D1SKS1ZE»360UTFIBE41 41 .£13112201V ETRLNG #2eCDKI), 00768100 7 OBsrts 
3 eB MR eo O00 He Be BEOCK 00748900 086023 
Al INFIB © *CITNKE2I1)5 00768300 T O864ty 
ee: ITOP ¢ ctA INR SD IEVUS Lae? 303 3 % POINT ITOP AT TOP IyU O 00768400 T 0865!2 
6 al OO7ABSOO B46 
7 PCCTTNKES) 3»0041,COMsdEL DEL) ae 00768600 066712 
ae INHEAD ©» ACING 18t10315 : ae aR : 00768700 ) oBeoty 


TNHEADE®) . ANeEAD alagiet iia: % FLAG SORT DISK bar 


00768900 t 
er PCCITOPLY*Y"1)))s WAITS % WAIT FOR FILE To BE OPENED 00769000 7 OB874ty 
N12 INHEADC1Y) £0 THEN ere 00749100 T Of * 
‘a PC10ssINHEAD SL GD» 24,COMSCEL,DELI3 & RETURN 4 ST ROW 00769200 T OB87ato 
@ “6 COMMENT SET FILE TG READ & PERMUTE 2 BUFFERS: | 00769300 T OB80ty. 
5 + p2e2ti08 3949: ' 087469400 PABO! 

8 INFIBE 16) ¢ CALINEIULLGI] CIC ahta7 Eris 00769500 T 088383 
er | COMMENT GET DATA AND VECTOR ARRAYS} 00769600 T 0886!2 
8 PCMK NJ xM)* BLOCK )3 een 00769700 0886 

8 PCSeM+ie[DATNI» 221°COM*DEL* DEL *OEL I : 00769900 T OBagty ~ 
@ . COMMENT GENERATE HIGH ‘KEY RECORDS 00769900 7 089133. 
1 NO. OF FP OMK MN: OK). TOTO O89 
P(MKS»MHK)3 IF NOT AC THEN PCO» CDC»MHK»XCH»RDSaCF x00)3 00770100 T 08944 
Or | PCHIVALU)3 00770420 T 0898s} 
7 OR + Q STEP N Y Saif oe = 0 200 T Q89839 
Ps ~- TTOPED}o« (NOT 0) ENX C*ULTOPED IIe iC auvaTs1IROE a7 F42t63) 00770300 7 090080 
il DkCH IF NOT TH THEN ae 00770400 T 090613 
- AN DISK ON LL MPLETE : Oa B® OOF hy 5 
i IF FM THEN GO TO DKF; 00770600 T 0907383 
Or PC10 eOUTHEAD +L O0s24,C0M, DEL,DEL)3 X® RETURN QVERLAY SPACE 00770700 t 090833 
i P ANH E DeL Ons OUTHE A ODs «INHE AD Des QOUTHE ADs STO 00770800 09103 
: SRP eg “ORTB ORI « 105 % SRI® AMOUNT. OF DISK USED TO NOW 00770900 y Oa912t2 
@ WRHILE OR} < SRI pO & GET ANOTHER ‘AREA OF pISK ® SRI . 00771000 T O914to 
: i 678 Oo o5°R 2 a oe 
“GETRONS 00771200 T O0915%4 
® IF DISKFULL THEN 00771300 T 091680 
BEGIN PCeUUTHEADsL00)s FORGETCISKs GO TO TPAs ENDS 00771400 09163 
: ENDS . . . 00771500 + 0918%@ 
@ COldD + DOTOPS : cae A | 00771600 7 O9i9to 
i DKD$ OCDA ¢ (LOSA + OUTWEADE(SR? * ORI «14 . ONZ 00 0919 
SRS « ORL © ORS = 13 00771800 T 092283 
@ COKE? LISA © INHEADCI1)3 % LOCATION OF FIRST TAG 00771900 T 092483 
HOREDATA¢ NOTCEOE tft LL ON 0. DO772000 + 092513 
RGE 00772100 T O928%4 
Ow GIN PCatINF1aC143995 FORGETDISKS GO To TPC ENDS 00772200 t 0930t0 
+ DATA + FA es ae ee 00772300 7.0033 
OKF! PC, [NvemOeLOG, SOUTHEAO,LOG.. 1\He ADEs {Ds GuTREAGs eto 00772400 T 0935%0 
& IF ONS > M THEN GO TO DKO#- 00772500 T 093740 
" M £ TR M + ee . ON: > C4 — ct +MSxe3 600 : 
e sea STRP ¢ 2xM5923 0 : sorsayeo T poapia 
ye he vo ‘REPLACE 1K, OUTPUT By PROGRAMMERS QUTPUT3 00772800 T de 
i PCMKS20 OTOPUINGT. .2. RUE NB. ER O07 725000 
ai OPENDUTS TREC. AND 3)#3 THEN COIOD * [OUTFIL); 00773000 T 0948t4 
@} GO TO DRE; 00773100 095412 
Pm is MERGES 00773300 1 O9Sot 
@ ak be 7g INKEAD® STD» sOUTHEAD» STO Oorraace ¥- 0982) 
SL ae ai a, RETURN BY Fs : iF i 0 7. OSS4to. 
& 
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LISA * INHEADEL11)3 MOREUVATA © NOTCEOF*DISKFULL©ONS©0)3 
Tres IF TNCCOTI 2 TCCCOTI THEN BEGIN SELECTS GO TO TPB ENDS 
SURMER(G MER R 
TF NOT -ADsLO0e OU r0 vray 
: By 


Bs DATA: STD, DATA 22» COMeD t RIN De 


INHEAD ¢ INFIB ¢ BASE « ITOP © BUFF © 03 
IF FM aR ACeol132) si THEN GO TO WRAPUP3 


IF ACeC4681] THEN 

ep RINGOs Oe PERFORM NBO 68 
ELSE DCMS LBINGO, LPRTBASECPCDUP) 113 LOD» LPFIOx,cOC) 
END ELSE PCMKSs ir 02 0eCUTPRO)3 


BEGIN ENDO. e43 


NOG 


PC 400cOM)3 > e -% RETURN MERGE MaTRIX 
Fr OUTCOUNTAINCOUNT CN PCINCOUNT + OUTCOUNT 0» 


0) : DOT Ow th . 6. 
G PC10,CQM)3 % FALL QUT OF BLOCK CUM WILL RETURN EVERYTHING 
EXD DISKSORTs 
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PROCEDURE POLYMERGE( 


EP BSESeESRESREBSPSRBEREBEBR 
8 8 3 E Ses 5 5 


ey auipho; NERGPRUTE LINE 
pet oea te pee rOKGs0KT, Aa cde sTPS NT» 
AL A 


COMMENT DISK*SORT BY LoRy ace DATE 9/19/1965 3 


VALUE See ood NG ete lll calc he ae gal 
i 


“REAL ENOQ>OINGUr IPFIDX»UUTPRO>INPRO*OUTF eT 1> Tae Tar INFS 
BOOLEAN OPTOGsIPTQG3 
REAL DKO,s,OKIs 


NAME TPLlaeTPeaTP3eT POs TRS} ee SERATCH Ui 


P_(102COM)i KRETURN MERGE MATRIX gTR@117 
DATA © AC, EOF + ACs cavids 
PCaLOUT HeyERaE PosGlibicks 
OUTFIB « GUTHEAD + 03 
; SOR M rT R* 
“aCGTN Po ¢10ecOM)? "RETURN MERGE ARATRIX %TR*417 
oo 10 'PCPOLYMERGE 4 GOTO ITD MERGE xTRe117 
wee WO} A ZTR™117, 
SORTDONE: 
: COMMENT ust O10 FINAL PASS} 
F IF NOT AC THEN PeGUOUT TILING: 219 8°CDC>STO)3 
END ELSE 
BEGIN COMMENT CA QUTP. PROCEDUR A N NO#*OF «SOR AG 
IF AC THEN foe 


00776850 


REAL NTOMIVALUSEQUALS/ RS 
BOOLEAN ALFAs. “® TRUE FOR ALPHA KEYS 
REAL CORESIES 3 CORE STORAGE AVAILABLE 
INTEGER DISKSIZE3 % DISK STORAGE AVAILABLE 

BEGIN 
B eer MyCoMIDeMIE » 5 cade a oe Rn epe ey eee ae 
55 pid Saher sf Le. 
a. ARRAY VLels 
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3 = SAVEFACTOR 
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‘a NER M i BL 0 
15 = FILE PARANETER BLOCK 
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B__ —__4_f R 
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Cee eee OAREASTZE oMF 1028 LO +REEL sDATE SBUFFERS, 
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02650310 
032450 3276. 
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@ I 
('s 
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pe EOF 8 
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AREASTZE$! 


MFIDS 
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PCSTOREINTOITEMI » CITEMIo #89 

IQERROR( TOERROR D es . 


4 € REOR rt a5... 
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0 = Nn i 4 R B 
ui ® SETTING A. "READ ONLY ATTRLBUTE 
ase ANA : 


INCREASING # OF BUFFERS | 
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F CHANGE: TO BLOCKSIze | WHEN FILE IS OTHER THAN 
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= 4 N a i NOT OP cN 
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X] © FIBC4),Ci3I11a3 
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OFR ROR(4O ‘ 
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OIF TENP << 1 THEN. IUERRORC42) ELSE 


"STOREINTOITEMCFIBLI3], C9 
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FIBL11] « TEMP DIV e016 9903341595 
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= 60 TO ATTEXIT). eee 


“IF QPCODE = O THEN IUERROR(41)3 
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TOERROR(46)3 ACUC 1031 
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OT SHAREDIS| 
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02583 

025993 


026440 
026620 
02663 

026613 
er 


reat 1 


TapRESS ry 


g0040 7 


sseecoec 
02690080 


02690100 


900010 


“90cote 


00000 
000080 


@ 
TIMEOUT s <5, ® UNTIL PORTION OF DATA COM 02690180 T 000040 

SKIPAFT = "6 % 1=2SPACK AFTER PRINT 02690200 f 0000t0 @ 
R 0269 0 Q000t0 
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4 caaLCONTRGL sos, FOR LINKAGE BY YSE ROUTINES 02690300 0000!0 

5 CUBULINDEX 2223 FOR LINKAGE BY vse Rou) Nes 02690320 y 0000:0 

8 ST : | _DES ATION 

vf RIB E8TS RET ARRAY. ° 02690360 

; TRE wa of USED TO CALL c : 02690380 

9 PRA a ae * POINTER TO FIR ee 02690400 

no F PB s 3(*]3 FILE PAKAMETER BLOCK 02690420 000030 
. a | HE #)3 OISK FILE HEADER 02690440 0000!0 

H2| A) MEM = 23 M DATA 0246904460 NADH 0 

ry a oe \¥ PQUSEs2ate); S PROGRAM USE ROUTINES 02690480 F OOOO — 
@' REAL RTOG t#1/0 DONE THIS ROUND 02690500 t 0000%0 

a a “ . 7 : . i 
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pegeueee 
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UNITYPES 
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STORE UNIT TYPE FOR MANY eee 
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a PEDEL Fak CALL. BREAKOUT 02690840 t “o0008 
BUF FNUM * 3 ): ‘# OF BUFFS REGUSTEO 02690860 T 0000%0 
RH} $1z = ; PApiSles 3 RU Oe A90RRO DO0O8O 
BUFF SZ = Fiatiesteretiol#s % SIZE FOR CONCATINATES 02690900 t 000%0 
Bu Salve = Fietial # x starts AFTER SEEKDC 02690920 7 00010 

= f OOOO 26 
BUILOSTATNWD set CSTaTNeSTPAPED: &® BUILD “STATION WORD FOR pc 02690960 7 000080 


PCOUP DEE Seae st GEC TUNES TUNB) (8 C8RER 8» 02690980 00000 
HEGK HECK = HE CK1e 0 OCs 02691000 | H000TO 
QNERRCONERK1) = BER Ric 17s COM»DEL*DEL DEL» DEL)S PC DEL) #» 02691020 tT 0000!0 
4 THE ABOVE ARE USED QN sBbO Ch thet CHKS 02691040 T Q000t0 
CLEARSTATUS_=PCCaliPrers = OR WR 691060 7 O000%0 
CLOQSEANDOPEN : 1? : CTRL» SCLOSE. NO RWD 02691080 o000to 
Wie oa Se Le | - % OPEN INPUT 02691100 r 00000 
c a oe gg : : us BOR A { H™ As B 12 49 A: “OOOOTDS.. 
DCBUFRLS = ENUMEUES edce % DATA COMM BUFFER RELEASE 02691140 tT 0000:0 
11+CUMsDEL»GEL»DEL) &s 02691160 T. O000t0 
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DONE 2 Be ‘mw TO COMPLETEO 02691200 y 9000!0 
pst 2 oe UNIT TYPe OF 4 02691220 7 0000!0 
FNAM. a8. 4y q N N FPR 02691240 ¢' 000080 
ENDF ILE 3 FIB[5) C4081) i “ALREADY. PASSED. EOF 02691260 T O0000!0 
ENOPROCESS = FIB(SJ]+l39%2)#» SEE OPTIONAL AND ENOFILE 02691280 T 0000!0 
ENORE ES = kK USED ONLY ON READ 02691300 00Q0%0 

o£ ee FIRST EOF OR all 7 02691320 T -O0008O 
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ety COMsDELsDEL*DELsDEL Hs 02691400 ~ 009080 
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BREAKOUT 
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i IF NOT DONE THEN 02720100 T 
36 = Qn om U4 Og QO : 
rT WAITIOS : 02720350 T 007233. 
e a) : TR BREAK THEN BREAKOUT) 02720200 T 007413 
9 3 : : REY ; : : : a 092750 300.3 DOBOLO 
SUBROUTINE REF CECTCHECKER ; # WRITE PARITY ROUTINE 0272040 T 00804 
] BEGIN | 02720500 T 0081!0 
- NO al ATAP WRI PAR 1k 6B ANK Ae Os Q Q_T 00.8 
: BEGIN” 02720570 T. oogety 
@ If OPENIO AND ‘DISK THEN IF(T#PGUSEL121. C1123) )40 02720600 T 006293 
sf a TREN On : O27 20605" DOBS. 
IF cisPeUSET 9]. cou1ea) 120 THEN GOuSEs O2720610 T O0adte 
e If (TerIBC15]4(14231) # 0 THEN GOUSES 02720620 + 009410 
Bt M 2023 : _ 0 20650 O09atA 
1 ENDS. aera re Lee O2a72Q0670 7 O099F! 
@} “SETPRESENTSBIT)  MOMAKE DESC PRESENT 02720700 T 009914 
P JE wot DISK THEN NXTREELZS REEL SWITCH oes OA00 07006 
END “RELECTCHECKER3 65720000 T 0103%t2 
@ | SUBROUTINE SKIPPERS * THIS DOES SKIPPING ON LINE PRINTER Denesane T 010333 
5 R_ROLA ON Qelet T—_94 
mos 05701200 t 1061 
@ | ENE MM ol 2 O2781208 010812 — 
@ 


Data Documents/Inc. 


a: a, «Tr « 5 sa <2 nn << Se 
4 ® s 3 : 3 8 S 8 - e 8 : 


SUBROUTINE REVREADS a 


SUBROUTINE. “READAEVS Bee 


Tez STEP 2 UNTIL LINES 00 
BEGIN 


a; not PRESENT THEN IF EOF THEN SEIT RES ENE SO 
ELSE REFLECTCHECKERS 
EN d 
IF LINES THEN 
BEWiN 
—— Q. . LP * aL aM CN : é 
TRRECE s 
he Not ‘PRESENT THEN TF e0F THEN SETPRESENTSBIT 
ENDS . } 
WUMBLE « BUFFNUMs % RESTORE BUFFER FOR ROTATION 
N 
3 8 THES DOES A READ REVERSE 
HEBER oe ~ bhocto3 FLAG CFIB. visi 


FIBL16]. {335 i5le TIP: 
WORDSLEFT « MEM t1..INX TIPDS 


. & THIS HANDLES A READ REVERSE 
BEGIN, ue Noy Techa THEN a 


REVREADS 
OLOc CO] + NOTCWORDSLEFT"™2) INX TIPS 


‘ELSE. 


IF CWORDSLEFT t= 7) LEQ@ 0 THEN 


REVREADS 
DLOC(CO}] © (NOTCMAXREC = 2 JINX TYP)&MAXRZ 
ND : 
ELSE BEGIN eae 
BLOCTOI+ NOT ewunnos1 16x CTIP 
“ @t WG ; 2 
RCOUNT t *PCDUP) + 13 
END 3 
NO NJ HEIN 
BEGIN 
_SETPRESENTSBITS 
BEGIN 
ENCFILE © TRUES 


OP CRIN 
ENDS 


: Ae “*PGUSELO] &FIBELS: 
IF RTOG THEN IOERR (29)3 
END; 
END READREVS 
SUBROUTINE ERRORS 
ie BEGIN TF Lao THEN 


BCGUNT © ar COLES oa ee 7 
RCOUNT © *P(OUP) = 13 


Oeneesbeo 


02721500 1 
Oe7z21600 T 


02721800 T 


02721610 Dae 


900 
02722000 


nel eelo® 
ore 


02722400 
Oa7 esas 0 3 
02722500 
per eeco 


22700 


Tosyeeeo0 


O2F22900 1 


‘ HOO” 
02723400 
02723200 


02723400 — 


02723500 T 


600 
02723700 T 
02723800 T 


02724000 7 
02%28300 T 
are 
05794900 T 
02724400 T 
D2724500__ 
02% 24600 T 
02724700 T 
{) ROO. 
02724900 T 
02725000 T 
ore 
03725200" tT 
02725300 ’ 


02725500 ag 
02725600 7 


027260! 
02726300 T 
02726200 T 
02726300 


02726400 7. 
02726500. Rie 


027266 

02726700 T 
02726800 T 
02726900 Tf 


- 02727000 T. 
» O27a7100 7. 
02727200 7. 


011240 
011380 
() . () 
011480 
O1let3. 


O72086 


O122t4 
0122%2 


012320 


~~ Oy26te 
o12eto Ae 


01 3at0 


014620 
“- 


0148°0 
014940 


015432. 
O15182 


Distt 
015510 
6 (9 
OyS9ty 
015993 
04644 
016382 
0165%2 
; () 3 
016633 
Bile 


018330 
0185%3 
018533 


- 018610 


O86t0: 


018782 
0189%92 
0191%2 
019440 
Oreste 
-Q19733 


Vata Vocumenis/inc. 


é a * * °5 5 A a 5 Th = Th Ky 3 3 = 


<a TWD OTSKADDRE SSS 


BEGIN 
ENCREEL t= FALSE 
- NQ D K HE N 
BEGIN 
REAOLBLs 
TREAM. (SE! BCeOepRCeOLeL_BLPTR)3 
BEGIN | % THIS RETRIVES END 
DOI « LOC SENTs% OF ae Scale ns 


“Ste bs SE oS 1039; 
OS + CHRIDSe5 OCTIDS 7 ocTs 


SL ECK RCOUNT) ONERR(16)3 
ChECK(BCOUNT) ONERR(1793 
R 


Haseeony. 
If CTePSUSELS Is t 1123394 0 THEN GOWSEs 
iY 
END 
ELSE STREAM CRECTOT+ TOTREC + 1» 
“BEGIN - 
ats . Lac RECTOT 3 
oe 
DS ¢ ? ei 
ENDS 
vaen NOR MEN 
TF PGUSELB8S*(DISK AND OPENIOx942)%0 
THEN BEGIN 
* s 4 () A, t ) 


IF (T+PGUSELBS], OTT E THEN GUUSEs 
ENDS 
F_NOT DISK THEN % END OF REEL USE ROUTINES 


BEGIN |. 
OIF. CTeF 18. C3ho 4231740 Uae GOUSES 
(TeFIB C3), 24))70 THEN GoUSeEs _ 

END F 

IF NOT ENDREEL THEN 
BEGIN 
If (Te* FI8 C2l,_C 18237240 THEN gOUSE: 
My CTe FIB C2)ef24824))40 THEN GUUSES 

ae a, ki : 

ENDS 

ENDS 

QNS PEN 

BEGIN co 

-ENOFILE te FALSE; 
e “ANDOPEN ‘ 
PCLA RIND 
ENUs 
NXTREELS | | 
PCDELsDEL)s  BSDELETE BRANCH RETURNS 
_ GO TO: STARTS PS a ete A a 


2 ENO 
WaVGEPARTTYD 
END ERRORS 


_&THIS COMPUTES THE DISK ADORESS READ & WRI 


02727300 T 


02727400 
() one 
02727600 
02727700 
Vere ADD 
02727900 
02728000 


- See 2 ¢ 
02728200 


02728300 + 


02728500 
02728600 


02728800. 
o2 Feb 900" 


9 OO.0 


rss 


02729200 


02729400 


02729500 
Q 9600" 


02729700 T 


peleneo2 


oar a0¢00 


02730400 
Os O30 
02730300 
02730400 
é ‘ore 


02730600 
02730700 
027 30AR00 
92730900 
02731000 
027 ole 


02731200. 
eens 


B00 
02731500 
eee 


02731800 
02731900 


mo 90.50 


02732000 


02732100 1 


027 09 
02732300 
02732400 
Q) one 


02732600 
02732700 
O27 0 


02732710 7 
Geran ets x 


019980 
019982 
0200 
020410 
020182 
Pak @ 


0206%0 
020630 


020632 


020780 


0208!0 


O2i2%e2 


Og17t2 
(o@2ant 


023001 
023140 


023480 


023410 


Q234%32. 
Q234:3 


0235%2 
023983 
Q244!0 
O247%4 
O24830 
0248!3 
OZ49hy 
0 to 
0257%0 
0257%0 
02573 

025820 


026210 


O26biot 
0266%2 
026632 
07606 


“O267%2 
O268t0 | 


027330 
Q273te 
Q 


oo7ets 
027710 
0277! 


“27810 a 


Data Documents/inc. 


IN. 


BS Eee es 


CUUNT « U3 | | 027394835 
PCLeRTN) 02734940 


ane 02735200 
cave « 13 02733300 
: 7 


RECPERBLK = SEGPERBLK Div ROWLGTH 02734800 7 
GEQ@ NUMBSPC THEN | Con angle 


If UPENIO THEN REGUNT = *P(DUP) + (SERJAL)3 CPEETEEE 


“END ELSE - eer ees 
a SERTAL THEN cOUNT+O ELSE BADKEY+ TRUE: aaa ie 


0344 ti 8 
0347100 bd ® 
058833. “ 


035513 
035513 7 4@ 


a woke PE ame : Oa7aaaso tT @ 

He s ser OMIT & Nor ‘shaneDtsn. 5B Be Gs oe : og73ssd9 7 0: @ 
P’ ELSE F LINEPRINT THEN 027 36200 T Ose7is 5 e 
BEGIN Sat: 02736300 T 037033 | 

5 _NQ KIPA He fy _ aoe 2400 Tt _. 0) 

: e 00736800 v : i @ 
oF | eee . 


@ 
BEGIN 02732717 T 0283!2 
e $ SET UMIT = NOT SHAREUISK 02732718 7 a e 
sHIND: : a ET oe ae 
SENDS eo 02732722 7 02802 le 
@ Te (Te P+ 10) uss 10" THEN TeLos 02732723 y Ogata aie | 
Te 2 ; ms ig ie : 
° "BEGIN 02732730 
GETSEGS 02732740 
LF HOUWOPEN ZO. AE 02732750 7 029410 
02732760 T 030,13: d 
e ho ee ee fe 02732765 tT 030283 |@ 
BeTeBUFT ORs [CF l= CLF CUE THEN Q ELSE WRITBACK))3 02732775 T 0305%0 ie 
e ry eeath SI*LUC As DS*8 DECS END; 02732780 1 0309%2 7 
"be . Le = IN - a 213K prem r : By on : ij 3 ts lg a li 
i ee A ae ciecrgeed ae : 2 : oa732795 + Oat oni ie 
e SUBROUTINE WRITS % THIS WRITES aA RECORD Der segue 7 0310 \@ 
a Seen aes ee wTN: ; CHO THEN oe ' S9O00. +. ‘pb: at 6 15 
i BEGIN ; S57 32900. T .Q312%2 je 
@ a. STREAM (A © TIPs B © CX1] 23 02733100 +” 0313t0 Y 
N 0 43 r! 4 18 
er. a1 * AZ OL © OL +43 08 © 4 CHR: 02733300 7 O3f4%4 1@ 
: ie Ore Or +43 OS. © 4 CHR | 02733400 F 034510 0 
: Tier wy cette te, Os Vile 152 Ey 
TECHCOFLU © TIPE 16133115 )8NUMMDST 3933145) 02733600 T 031583 
@: NUMNDS + “HORDSLEFT +CWORDSLEFT ¢ BUFFSIZ—); 02733700 T 031874 4@ 
eee Qi+ FLaGCF IBC {Oo} & NUMWOS Bile tIRgdg 9 g733759 7 932113_ 
ob - “END ee 02733800 t 032410 ‘0 
mee ELSE BESIN oh ee is: 02733900 y 032410 ie 
a te NO ene ee f) 34000 O3as 2 
Pe NUMADSe (WORDSLEFT © BUFFSIZE) - 1 3 02734100 7 0326!0 a 
4: IF PUNCH THEN FIBC16].03281] * CHNNLZ &TR 840 | 02734150 T 032910 3 @ 
ie om - LI LN 7 onan 7 ad ¢ U ; 
Bt COBEBEN gs | 02734300 T 033312 | 4 
Or. OPAST IOS OF 7 a 02734350 T 033410 © 7@ 
cal STHIS COMPUTES THE AMT OF DISK USED IN ROWS | O2734n00 T 0334612 
IF CRCGUNT+1) DIV RECPERBLKxSEGPERBLK DIV 02734500 T 03362 
@ ROWLGTH GE@ NUMBSPC THEN 02734600 tT 034030 hed 
CRCOUNT + OPENJO) DIV 02734700 034230 39 
© 
€ 
@ 
@ 
@ 
e 
& 
® 


GO TU SETUP; 02736800 rt O374%4 
ENDS 02736900 f 037433 ® 


OR * or 0.0.07 Q 
‘Duacr oie FLAGCFTerLe74L INES C27tartil 02737100 7. 03 
eLINeS pest eet Ga? ay eoo " 


SETUPS: 


02737400 
02737500 


ELSE BEGIN 
a ¢ FLAGCFIBL16j)a@eO (27%42261)5 


03737900 
be eb 


{ ) © 
02738200 1 L39C 
: Car aeeee 3 
“TF TAPER. "N ARROD 7aA00 3 1397 
IF DISK AND BS < 100 THEN TERM(69)3 05738500 tT 
PRELS | /_ . 02738600 yr 040133 


FIBL16 $45) ¢ Tres | 
DLOCLO] * (DESK) [NX TIP & MAXR3 
IF TRENCOELY THEN 


-PRETURNE 


Savebade 7 090514 


02738900 7 O408%2 
. . HaFasgoo.t.. Oaba 

STREAM (I ¢ Pein en oe TECHGUR EG: C3815) 02739400 

Bb ¢ TECHCOFLO, C16sisis K ¢NUMWOS»(36%6]» 02739200 


= 


T O409%4 
T. O411%89 


p O41313— 
739500 7 O41at3 

o57a9700 eh 
02739800 041533 


TPM TTY 
SI ¢ 13 OL © X$ Sy #5] 443 


Data Documents/inc. 


a +, 5 m3 wo ~ mn <n <n” Se ee 2 - 
a oS ® & © & m & KD .3 


2 EN ce eee : 02740000 7 0% 
TECHCOFLO: OF Cee aes : 02740,;00 7 


“pkepCrol] co eK ADS TNX ‘ O>r7u0200 “e 
WORDSLEFT ¢ WORDSLEFT = NUMWDSS4 02740300 . 041983 
END; 02740400 042133 
T PRE i ; 0 0500 04218 


BEGIN. : oo, ae : | 02740510 7 042340 
$ SET OMIT = _NOT SHAREDISK | 02740519 + O42at2 


1s 02740530 r  Ounits 


END ELSE O2%40540 T 042520. 
RESETPARITY3 O2?40550 TFT 425: 20 
“NO WRIT? 0 0400 i) 
SUBROUTINE — WRITEADWUSTS 


THIS ADJUSTS BLOCK+REC PTRS ag O57ad700"-¥  Wagets. 


“BEGIN: 02740800 Qazato 


ages 


: Fi Re : : O27 O900 é QO é 2a E 0 

PCNUMWDS 23 SSAVE OFF NUMWOS 02741000 tf O428!3 
BCOUNT ta #P COUP) - 13 ABACK UP BECAUSE WE 02741100 y 042980 
e ) 6 0) e 


at a AD IN 


aes : 02741300 t 0433%0 

d+ 1} sur GRADE 80 [IT CAN Stab O27ai4od rT 043410 

sere A cee) Ce B we Gs ho Eee a wWE N # af) 2 B00 “a 4 me 
NUMWDS3= P3 aenecees T 04380 


WURDSLEFT. 83 *PCCUP)*NUMWDSSZDONT LOSE LAST REC 02741700 rt 043832 


“SUBROUTINE REE ae ‘A RECORD 


Data Documents/inc. 


* se <n Se = Th 53 <. NJ 


IF RKCOUNT > TOTREC OR BADKEY THEN 02742200 T O444t3 
BEGIN 02742300 tT O447ty 
Q ae ak TO eo 3 
WAITEAFTEREOF * 33. 02742420 T O4A9I3 
If. OPENTIO ~~ SERIAL THEN 02742450 ft oaeet} 
ROU a. 'D te oe ete eh eee ) ‘BD SS io. 
ERRORs 02742500 7 045782 
ENDS : eel neoue ry 0459%0 
“Qe A open Se eet : 00 943920 
“RT © (BCOUNT# (Te (NUMBUF*1)))*SEGPERBLK: 02742600 t 046084 
aRt: a SEGRENTS READ pear es Gargeggd, po oases 
"ERE ROD { R BI000 * -Oabai2 
(T SL SuAU AND BOUNDED) THEN. 02743100 T 046834 
BEGIN pels en) T 047033 
ea! ba A CK Pie OO ) 
BEGIN. : Sree nant O472ty 
“WRITEAQJUST3 92743500 tT Oa7ats | 
elem aa r) : ; O° 3400 + Oe7 alo 
. ENCE 02743700 : O47aia 
peo a ee etre ete ed) 02743800 i ies 
ROTATEB 4TH S_FRROR DES 02743900 04773 
‘AT © 91300 ® THIS. rinraits PRL O274G000 tf 048034 
END” a at pe Mad Seal OG84ty 
BB NS meets arr “ l 00 O48 
PCCODE)S CODE «+ O38 O57 44506 T 0486433 
QDISKALDRESS; 02744400 T 048283 
eps : 
$ SET OMyYT = NOT SHAREDISK 02744599 7 O4Batea 
END END . pa dpe Tr eee 
PF. ke . nee Sa ee eee Y AGOD re 
IF NUMWOX<1 AND RCOUNT 20 THEN TERM(26)3 05745000 T 0485! 0 
ae (OJ « FLAG CFIBC16])3 02749100 T 048823 
vty, Ra: T 00 049020 
oR CoDEs2 THEN NUMBUF «2% 02745300 7. 049010 
~PRELS 02743400 7 049343 
ODON WORD SLE + IF 0 DISK HAS NO HOR 8B, OCK O G0 Oagsto 
LF (pSeTOTREC™ RCOUNT+2 )2RECPERBLK THEN 02745600 T 0496314 
BUFFSIZE ELSE (BSxMAXREC) ELSE Sao T O500%1 
« O 0 NX ; ate ates 2 BO O504% 
IF NOT PRESENT THEN 03745900 7 0506%3 
. BEGIN 02745905 T 05080 
OMY T.2 NO SHAREDISK £ 909 O50n: 
ERRORs 02745975 T O508%2 
END mar pete ee T O510%0 
7 AR : ° 9 O510%20 
$ SET OMIT = NOT SHAREUISK ea oO cogs . 03745989 T° O512t2 
END? pis 02745995 7. O512%2 
IF RANDOM HEN GO TO -RANDOMLAL : “O27 46000 0512! 
FIBL16).033%15) «¢ TIPS 02746100 T 051382 
DLOCCOJ*© ¢OISK) JINX TIP & MAXR; 02746200 T 051583 
JMIT = IN SHARE QI SK 02746249 7 0519%0 
louTs END REED 3. , 02746300 TF 051910. 
SUBROUTINE SEEKS A THIS. CHECKS FOR “PRESENTS OF. aiocks IF NOT IT READS ee eae 
: BEGIN - 600.7: O82080. 
“TF COKEY ¢ KEY= 1)<LSUBL ) UR CKEY >LSUBU AND BQYNCED) 02746600 T O0520:0 
THEN ea ¢ TRYE 02746700 J O523%4 
RuSE Bf __ 02746800 05263 
oe: TBCOUNT. + CACOUNT®KEY) DIV NUMRECS 02746900 T 052810 | 
BCOUNT ee eee luons aes 027477000 7. OF ato 
ue pe BEGIN ae ow ORT ET200. 7 083011. 


Data Documents/inc. 


5 A A s. aS = TS 53 x. 
0 & éh o © G 5 


REREAR? 
IF NUMBUFZ2 THEN 


wl iN E 
ROTATEBUFS 

IF NOT DONE THEN 
WAITIO3 

NUMBUF #13 


ENDS. 
ae CODES2 THEN moore hat a 
“IF RCOUN _ToOTR 


oe © SYS DM Fw Dn = 


‘ LN 

REEDS 

END? 
RCOUNT. AF. 
IF KTOGG THEN 
ENDS 


$ POP OMIT 


BADKEY ¢ FALSE; 
END; 
QOF = H 
TF CODE. = 2 THEN. POXET I | 
END SEER) 7 


“START : 


WMA DK P2ZQOQ00000000 
TF. CUNTTYPEeU “THEN & DISK. 
el Las ee ie ae a a 
CF LBC 7 a. kta HE ADE R 
“LF RCOUNT > LSUBU AND BOUNDED THEN 
IF CODE THEN 
RCOUNT#(OPENIO “B 
PCisRTN). ELSE ELSE BADKEY TRUE} 
NOT SHAREDISK 
[CODE "4 REN. 
BEGIN CODE*ABSCCUDE)S 
NOT SRAREDISK 
NDS 


ENO} 


$ SET OMIT 


$ SET OMIT 


BEGIN 
IF CODE=4@ THEN 


$ POP UMIT 
MPROPER SEEK 


a IF PeauNt =(TOTREC DIV TNURREES THEN 
BEGIN ZABQVE CHECKS FOR LAST BLOCK 
R OTREC3 


COUNT © BCOUNT © *PC(DUP) = 43 


FIB © * (FLOC © (NOT. 2) INX DLOC)s ZSET UP IDS 


tf: - oF CennPRace seo oR CODE? THEN ¢ ao To EOFSETCKI 


: WRITE sock 


0274725C 
02747300 
() O) 


02747500 


Ga7a7eco.: 


02747650 
02747700 


a4 


444-4 


02748200 


02748300 . 


Ogata 


053283 
053293 
¢ 


053483 


O53ai3” 


o5soty 
0553%2 
eee 


03748500 TO: 55 | 


t.% § 2 “ae 
03748750 ’ 
Scpedapes t 


04748900 
02746904, 


BOOO 


05749000 T 


coo we tee 


oataeseb 


02749600. 7 


02749700 


02749900 


02750000 


02750300 tT 
pee ra ce T 


09750310. 


02750314 


PIED 


02750334 


os730450. 


: 02748600 7 


O55a%4 
Q0558%2 


056240 
056210 


Le oo tj 
056240 
Meas 


~oserae 
02749400 ° 


056984 
057233 


088733 


059410 


059423 


02750500 1 059 


02750700 
02750800 
027506 


02751350 
1 OO 


Os ; 
02751300 


Data Documents/inc. 


a 5 S23 OS 
om > & & 6 oS & S oS “7 


$ SET OMJT = NOT SHAREOISK 


SaDORrOa" 


IF UPENIO AND RCUBE XIX 
‘ z y R x i xX 
oh “eo TO -RANDOMTO SCUBE XX 
ELSE. TERNC35) | ZCUBE XIX 
TF FIBE5)6(4114) # 0 THEN ZCUBE XIX 
TERMC34) WHEN WRITE BLOCK UN INFUT OR ON SCUBE XIX 
-RSED_O8 ON UNOPENED 
TERM (34) | ELSE SCUBE XIX 1 
: BEGIN T ts _NORDSLEFTS SWRITE BLOCK 


PCLT ENULL” BLOCKRTR 657 
WRITS 
a LU 2A elles 
Ee TROXTTIE a 
Wiehe! oe END Biihae E shoediled 
"Rut O5 | UN RECOGA Dn cop 
“END: 
IF (le wee *HOWOPEN THEN % CHECK USE VS HOW OPEN 
: OWOREN> a RM VOOF of . D 
IF NOT ‘OPENIO THEN. TERMC PROPER) 3 SUSAGE 
oF UNITHPE ck OR UNI TYRE #43 THEN GO TO DATACOMS 


wa 4 


BEGI N 
T ¢ WORDSLEFT " CNUMWOS*NUMNDS 24 &COUNT WOROLEFT 
a N N ‘ 03 
TE CODE: THEN a “CODE! ON WRITE 
ESM wf. * he ALB A 
HASHS | 
IF TECHC. THEN . 


JMWDS: > MAXREC THEN 
JT # WORDSLEF T= CNUMNDSeMAXREC)3 
ae  MAXRE: HEN DID R Sf WR 
END 
EL Se IF (COUNT ¢ -*PCDUP) is 4220 THEN 
R WR 
IF. NOT DISK THEN 
oS POLTTDS OS oe 
1 CT©RCOUNT#L) > TOTREC THEN TOTREC © T3 
PCQ*#RTN)3 
ENDS . 
RCOVESO ON READ 
IF REVERSE THEN READREV ELNE 
TE: — dl Qo. THEN: REED ELSE. cm 4TR 899 
IF uunoel THEN GO To EOFSETCK ELSE 
DIDULERECS 


OPIBE Laie eo) RCUBE XIX I 
IF SEEKEY THEN KEY eRCOUNT ELSE SEEK3 
IF BADKEY OR (KEY > TOTREC AND COOESO) THEN 


. RESET SEEKEY&BADKEY 
SRE THE ADDRESS | 


02755200 


02751614 T 


ne eee 


fy 


0614%0 
061430 


OaRsi6a0 
02751650 T 


02751670 


02751680 T 


02751700. 


O2P51800 T 
05751830 


02751850 


02751900 


02782100 7 
G2752200 


05789900. 


02752400. 


02752500 


03752700 
02752800 


25.04) 


03753000 T 


vel ele 


02753300 T 
02753400 
2: A $4.53 


02753500 
02753600 


02753800 


02753900 


O°764000 2* 


02754100 1 


02754200 


02 Q 
02754400 % 


02754500 
02754600 
02754700 
02754800 
02754900 
09755000 
eotaa ne 


02755300 


rere 
02755600. 
65 


Tet 
02755800 
03755900 


3 beeenae 


ie =e aH 44 


062610. 
062633 
OF Py 6 
(063010 
0630%1 
re 

O631%2 
063412 
OA H 

063733. 
0643t2 
oF. &, * 


Q647%9 


065530 

0659%9 

N66 e 
T 0664!2 
066340 
O48s 
067054 
067130 
06 £0 
067810 
067833 
0679%2 
0683%o 
068410 


07030 
0705%e 
071010 
OTR 


Data Documents/inc. 


a ‘ a ng 3 SSS 
S co a ee) 5 S J @ 


e  ) 
RCOUNT « (CBCOUNT ¢ CUUNT) x NUMREC)3 02756120 O717%4 
e $ SET OMIT = NOT SRARENISK O2756129 1 072110 e 
1 — ENDS. OY fear | 0756300 T 
@» 7 SEEKEY pack ae ots 02756600 tT 
3 COTA ae be “agg 
4 ROTATEGUFS 07750600 07248 32 
eo; IF NOT DONE THEN Oa} 26700 T o7a7t3 
6 
‘| og786795 T 
@ | a7 Sey 
9 


SoeU 690 023312. 
SEEKEY*FALSES | 05756910 1 O733t2 
NOT SHAREDISK = 02756919 T 073640 


‘0 RANDOM HL O275 7000 O07 3420 


eo" $ SET OMIT 


ee ee oe go To TODQNEs Opts7200 1 O7a7ty 
eo” : ae 8 ENDS , 02757 300 T 073743 
5 : RAN AM : . 2 Pe NA ‘ ® Ae ry ua i a Ee i if _ i 
5 BEGIN. 00787410 T 0738!3 
eo,” . MAYBEPARITYS 02757430 T o739ty 
a NOG D275 7440. 
T *RANDOM «+ FALSE3 fe ue 03757500 7. 074010. 
on LHF 2008 =.6 THEN IF WRITBACK THEN el I “Og7s7sio tT O7ariy 


O744%92 
el 0 


037575 30 
02757540 
() 


| POXITI3. er ae | : . atrepesone OFshie 
END “ELSE F447 D2 ste | ae : 02757570 T O7aety 
| aoe a : vee 


IF “COUNT % BCOUNT THEN 075012 
O75e%1 
) 


00757700. 
Pareto’ 
? O00 235 
02758000 - O753t2 
Cereacee 075613 
(RB OOO (£8 
Sorenooe 
02758400 


NUMWDS © P3 
RCOUNT ¢ KEYS 
Nu 


“MOVRECS - “Oe 758600" 

“ (COO REN: » TF RANDOM WRITE THEN WRITE Oar 870 
Cae | 1 eERAA 
IF LASTIO THEN. FIBC13)< a ¢ 3 05758850 
IF NOT (COUNT = BCOUNT AND WRITBACK) THEN 02758900 
ops B960 
JORESSISCOMPUTE NEW ADDRESS | 03759000 
BCOUNTS. : ae 
TF KEY > TOTRECG THEN TOTREC ¢ KEv3 02759100 


076623 
‘ OF i 


077010 


“aratte 


he 


4-4 Ge Nalgailela 4-4 


Orr ats 

$ SET OMIT = NOT SHAREDISK 02759104 O775%14 
| ___WRITBACK ¢ TRU 0275916 0775! 

END30 oe Q9759200 7 O77783 

Log eae sah gals RIND ce 02759300 fT sith 

SEND OF. N LOGIC ON PECIAL ROUTINES 09759400 T 

eeecicr &THIS HANDLES SERIAL yO 02759500 T O778t} 

IF BADKEY THEN REELS aCyC 022 ee tcraa T O778%4 


IF _NOT CLASTDONE AND CODE) THE 


Data Documents/inc. 


g . G > 


END ELSE 02759680 1 078880 


BEGIN IF BOUNDED THEN 05759700 T 07880 e 
= 4 re sat 2 0789 . 
BEGIN: COUNT + NUMREC = (BS « RCOUNT MOD NUMREC)3 09759740 7 O79435 — Ne 
of ~BCOUNT + *PCDUP) * es # 023 Oo759760 7 O7eBtt : 
“COUNT ¢ NUMREG ELSE 09759800 T 07971 3 ‘le 
COUNT «¢ atta | 02759900 T O79933 
‘oarsooac Y O80RIO ‘le 


03760000 
02760020 


BEGIN.  NRITEAFTEREOF ¢ 13 
RCOUNT © ee +23 


: ) 
03760100 r O815t2 ah 
— -0pF60200 * Sto \@ 
INR ie eee) O5360300 + -0814:- 18 
RCOUNT.« *PCDUP) #12 02760400 061734. ‘\e 
SCOuNT. ¢ “PCOUP), +13 02760500 7 0619%1 H 
a ; Bei OT ROLON FORO UE G. 
Te 09760700 + 062383 1 
CE 09760800 7 OB2aty , i 
ATT Z ; : : Fre Pee ee ok HOW. 4 of af: 
i END ELSE REEDE 02761000 T 0826!0 Fe e 
CODE ¢ 43 MOVRECS CULE © 13 02761100 T 082840 p 
i aa END REEDS : 3. 24 
py DIDDLEWRT? «IF CODE THEN WRITBACK * TRUE} 02761300 T O832t0 le 
a OEP WETTER! TEREDE. = 3 THEN iE REVOAETERE OE ¢ 23 02761400 0a35s1 ne 
Py LR COUNT 6 *PcouP ; 05761500 083913 
Ps DIDDLE? ~ MOVREG? 02761600 7 084413 1@ 
ps KCOUNT ¢ *P(DUP) +43 02761700 tT 084330 i 
e : : j ne ¢ 61800 on ks " 
y . | 02761900 7 Qau5! 10 
on a Gar eaeee 47 oa 
‘ ' e « ee veel 2 POINTER BED 33 
ELSE GO TO EOFSETOK . PASSED EOF ON READ 03762200 T 085133 3 
P P(@»RTN)S 02762300 t 08522 4 @ 
B6 % ND R Lh =(Q : . io 
i DATACOM? = &® ALL DATA COMM GOES THRU HERE 02762500. 
am $ SET OMIT ® ea Nee . 02762600: 
i : - SET OMIT. = TIMESHAR Le no .2n00 


IF UNITYPE= 13 THEN REMOTE U3 5385000 
% MUST bE UNITYPES10 05763000 
PCMKS*TUNR»s STATNe TIMEOUTSEAPAND» 03763400 

peat J NUMEOR CNCOCRESRSERSLLENTCOGBOLOCT) 24 . Serevent 


IF ENDFILE THEN TERM (i593 ETO 
ENOFILE * TRUE 3 02765900 
02766000 
02766100 
02766200 


aoe i ieee ia oom SIZ “08 
PROCEHURE FBTNBACKBLUCK(FILX SDKADDR, PAC LISCAETT Cone EOF LS PABC 3 02767050 T SE 
START OF REL SEGMENTS DISK ADDRESS = 90293 
EF _DKADDR*F le LISX*EDITCODE*EOFL» pAR % INT # ©160, - .. 02767300 0000%0 
USXsEDLT Fu, ARRAY FMTCw)) NAME FILX 3 | sa sst ice T ‘booate 
: ; 200. to. 


(a3 


Data Vocuments/inc. 


INTEGER BSIZE» LOTRNZRA19 3 02767300 T Q00030 
02767350 T O000%0 
R 00 ARRA =1 8 ALG A = d RE A Q y Q97464 @ 000030 
1 SELECTsids aarger yee iel ARYs TYPEs DBLPRECs20» INDXSEQFL»s B6700> 02767450 T 0000t0 
2 QUT> FLGs LOINTs Tye Tae T3s Tae TSe TWOTs WHI®18s WHaeizs 02767500 tT 000010 
3]. ZE 2P AB A NT mF PRAT KB EM RD KF R -¥- rH Q ATS 0) wee eYatatae Wa 
02%67600 T 000010 
: Del erene T 
fy Of) 
iu ARRAY ARLSLISTADORE*#), FIBL*#)J, TOBUFFLeJ, TPAR@230*), FPB=3C¥)] 3 05767750 ¢ 000040 
ale we 02767600 T O000%0 
9 i: AL TST s BEKDTA SE VE A NOALL AWA SPCL Ws D 0) 478.5) Velen we 
po CMPXL» DUBEL» LOGCL» STRNL» INTREL» BOERR» ENDIT» ERROR, 02767900 T Q000tn 
Mt BOs Bil» BOls BI1» BDERRI+ BDERR2s BI2s» MAX»e LUOPs STRNL1? 02767950 tT 0000:0 
n2 PRINTER» UUTL» BKSPCs» BOs BO3s 0 s B10, BIg, Blas B ENDGs 02767975 000080 
B6 3° . me 02767980 T O000%0 
By x ae on 02768000 t 0000380. 
5] SWITCH TYPLeINTREL» STRNL» INTReELs LO >. OUR MP ee kee ae es 09748050 *elelen ee 
6 02768100 y 000080 
q DEFINE ee = (LOTRNS (= ad He per oei 3g T 00040 
8 N = # 68200 Q000%0 
7 KIND = FIBC4], TTTy as 03768250 tT. 000010 
Po. TAPEF = 2 > 02798300 T 000040 
: REMO = ene 6.8 —<O000%0 
j DATACOMF = 10 He Terre T O000!?0 
PS INTEGR = 1 > Le ete YT 000030 
24 STRING = 2 #> = 7468400 N000%9 
PS REEL = .3#,s osneeasa T 000080 
pe. LOGICAL = 4.#»s 02768500 tT d00040 
D7 DBLPRECSN = 5 4 aa 
Pe COMPLEX = 6 He» 02768600 1 O000!%0 
23 TYPEF = (4434) #, 02768650 T 0000%0 
Bo NOXF = (18:15) #» 0276870 O00Q%0 
mt ‘SIZEF ® 033315) #3 02768750 7 Oo00tO 
i are " 02768800 T O000tO 
: SUBRO Tr E BLANKLT 3 : 02768Rn0 ON00IG 
P BEGIN. 02768810 T 000150 
i STREAMCCEP(XCH Ae BSIZE*1Le BEPC OUP) .C3636)3D*IUBUFF) 3 02768815 T 0001!0 
a BEGIN 02768A20 000430 
i ST*#LOC Ad BCSrieSI*is OHSeCHRI} Sleeps OSeA WOS 3 O2768a25 7 000480 
: sa arial DS*32wO0S) 3 09768830 + O006i0 
Bg END Fo 02766895 7. .00078 
? PCDEL*DEL»UEL) 3 02768840 T O007%2ea 
END OF BLANKIT 3 02768845 T O008%4 
OQ 68846 00082 
SUBROUTINE CKPB j 09768850 Tt  O0086t2 
BEGIN 02768900 fr 00090 
ws MKS man HE PC DKADDR sO = § ‘Ff KF eB een te aA t ‘468056: BOLLS A 
IF CAS IZE*PCFILX* 1OINT) <0 THEN GO ENDIT ; 02769000 T 001270 
END OF CKPB 3 02769050 T apes 
02769140 
SUBROUTINE rO 3. O2769700 T gat4t 
} BEGIN PCOD ae tg aa ce 02769750 y 001510 
NO Bi ys MKS sFLGeDKADDR I} IF THEN P(O.BS | P x OLN 69800 
IF Pp THEN 02769850 T arene 
ENDIT: _ BEGIN FILXCNOT 3)¢F ILXCNOT 4J¢03 PCXIT) END & pe sae T 001783 
APO oe ale ’ 
=: END OF 1030000 | 7 arrecooes at 
co AO i te Ue ae, ocak Ogrrooso T Ot 


J REAL SUBRD PUINE NXT IMe ge ee ee * : ede Ootr7OvOo 2 Oo s. 


Data Documents/inc. 


a , ty 4, 5 a * a Amt Th By Tk 3 ~. 3 
on io & b 5 & ah 3 5 on 


BEGIN 

PCIF TWOT THEN PCeCARICINOXe£L33%7) I) ]¢INDX AND 255*CDUC) 
14 ARIL I! X 1. H 

INDX@INDX4#44 oONXTLITMeP 3 

‘END OF NXTITM 3 


SUBROUTINE GETNEXTLISTITEM ; 


BEGIN 
Ags “BEGIN: oe, 
ALIST?# BONKT ITM) dos : 
: TF DBLP THEN IF OUT TI wh2ewny ME NOX eI NOX+ 
ARY #S 12> INDX ; 
END 
S| TYPES OMPLEX THE N 
ae ee BEGIN TYPE@@COMPLEX; PCELISTADORE1]2) ENO 
ELSE BEGIN 
oP CARRAYSTUFFeLIS 1p «0 TSTADDReL x: 


UBLPRECe#(TYPE*LISTYPE + TYPEFIZQOBLPRECSN # 
IF ARYe¢ARRAYSTUFF ZO THEN 
B Ny 
IF TYPE=COMPLEX THEN. TYPE@*COMPLEX 3 
SIZE eCINDXeARRAY STUFF « INOXF )*+ARRAYSTUFF. SI<EF 3 
STADDRemM LADDER * 2. 
THOTeNOT P(.UO-TOP)s PCDEL) 3 
IF EDITCUDES2 THEN GO ENDG ELSE GQ ALIST ; 


PCDELe CL ISTADOR(0OJ)) 3 
IF DBLPREC THEN IF OUT THEN wWH2e. ISTADORE1) 3 
4 " 6 a f i 

IF OUT THEN WH1**P ELSE ADDReP 3 
ENODG?: END OF GETNEXTLISTITEM 3 


SUBROUTINE GETANOCHECK ; 
BEGIN 
3E TNEX TL STITEMS. fie Tish 
IF DONE THEN 


BOERR1! BEGIN PC1) 3 
BDERR: Ti¢P3 PCMKSo Tis TYPEsT2sFLGs BSIlLEe(*82)esFURTERR) § 
END 3 | 


FLG*FL G41 3 
ND OF GETANDCHECK 3 


hakanagtheckakiakteka kee CODE STARTS HERE Slawkwat take eee ea aS 


LSTRNeCKPBleL 2 
If EOITGODEs6 THEN 7 


BLKDTA Se rotinedr BCC dTaneeeua crise fn 


Teen O eae ee ye cea ene rae 3 
NU 


Tee ier Bis, ; 
CIF P THEN BEGIN PC223 oo DER NDE TLeFNTWRD,E33115 364 ; 
MICE lek Le 
gO TYPLUT2=1] 
CMPXL: IF ABS(TYPE)4COMPLEX THEN GO BLERR23 ADDR(OJ+T3 3 
TNEXTLISTITEM#  ADDRLOJ +14; TisO THEN GO SPCL1 3 
QETANDCHECK, POGOe TR : 


027704350 
027702006 


02770300 
02770350 
$ 5& 643 
02770450 
02770500 

() 


02770600 


02770650 


¢ 700 
02770750 
mee THe0e 
027708 

02770900 
02770950 


O2771000. 


02771050 
02771100 
O02 
02771200 
02771250 
() * OU 


02771350 
02771400 
02771550 
02771600 


yT71ASO 


02771700 
02771750 


O2 AOD 


02772050 


02772490 


02772150 
02772200 
02772250 
02772425 
02772950 


. 02772975 
02773000 


02773050 
027737100 
Nao? 7 : 

02773200 
03773250 


@ 730) 


' 02773400 


nee 
02773 
EET 


027739500 — 


0 ras O- 


02773600 
03773650 
05773700 


O27T7a723 
ARE nd 


002450 


t 
7 O024:%0 
OO 30 
T Og2Bto 
T Q029%2 
ams om i 
ty 002933 
T QO030:0 
comme O20 
T° 003084 
hi » 003093 
T 003633 
T 003833 
OO 3A t 
7 004610 
wT OQObSty 
004273 
T 004433 
T 004740 
T..0086813 
T 0051410 
O00 t 
T 005533 
T O0O57%4 
T 0059t0. 
7 O059%2 
On62 
T 006232 
T 0065!0 
rere! HY 
YT. O0065%4 
y 006610 
O0066!0 
T QO068%4 
T 006934 
0070:0 
7 0072%3 
T 007283 
007410 
y O074ty 
tT OO074%4 
; O07 ¢ 
T 007484 
T 0081 %2 © 
» OOB at 


009182 


009203 


OO ot. 


0099314 


0403°3 
0106'0 


010990 
oTtoto. 


IF Ti LEQ O THEN 02773850 T QO113%2 
BEGIN Pc2ds GO BLKOTA END 3 02773900 yr O114t4 


SPCL1:3 


' GO DUBEL 3 | Oo774000 T. O11780 
2 LOGCL:s IF TPE OGI CAL THEN Ta Ee Oar yreee 7 Otirte 
3 BoERR?! _GO BDOERR ; 

4 ren IF T1 LEQ O THEN GO SPCL23 GETANUCHECK ; 02774150 T 

: GU LOGCL 3 - 02774200 7 

7 STANLit IF hOSCTYPE COMPLEX oR V OBLPREE THEN GO BOERR2 } Op774225 T 012683 
8 | AODRCOD*FMTCET] 3 A | Op?74230 T 012980 


iY . ELSE BEGIN : 02774275 Y 013142 
u IF CFMTWRO©FMTWRD@W1)S0 THEN GU SPCL2s FI«T4s Thel3 3 02774300 T 0133°0 
n2 END 3 _0136 
|  GETANOCHECK 3 See ee : onrpassy T 043613 
4 GO STRNL1 § 2 a : Oa774375 + 0138t0 
5 NTREL? F. ABSCTYPE )=COMPLEX THEN. GO ppeRRe;3 PF efappRroj) ; Q OG. T O¢3a1 
6 IF TYPE=INTEGR OR TYPESLOGICAL THEN 02774410 
7 02774420 
. ; 03774430 
9 vi -_* — PCISD) 3 . . . O2774440 T Op4qtg 
PO , seen 4 ; eer 044520 
1 ‘3 O>?7bab0 tT -O1asi0 
IF DECRWES THEN MooRTII«G ; 03774470 T 014583 
IF Ti LEQ G THEN . oat aaee T O148t0 
S IP BEGIN 2 BLK A FND OG 500 ¢ giz 
: GETANOCHECK 3... currassony 015030 
§ «GO INTREL 3 OgFy 4400 TY 07514!0. 
§ ND OF “BLOCKDATA Ae. ee ; ; : () 
8 FIBCFILKXCNOT 274 FILX(NOT S3JePaRLs FILXENOT 4] ef0FL 3 . 03774700 015182 
g ; 


vert 


PcFIB(5]) 3 015633 
FI<0 E 0 


O16it2 


FLG*DKADORS. GO OSZ 3 
016243 


MAXS3 3 © OrTT TTT ete TTT. 3 


02774850 r 
02774900-T 


0144%0 
tee 


DuTei? PCP. (43th }e*PCsALGOLMAITED). 3 02775000 
IF FLG*DKADDR<O THEN 02775050 


KAD DR 


ICINTeP; LF P THEN PKS T He FTOH | L>SELECT) F 02775250 1 16884 
If EDITCODESS ned : ; Oa775300 tT 047083 
IF FIBC5)6L4182}%0 THEN GO ENDITS. CKPBI+3; CKPBs I0 3 02775400 T 0172!0 
IF NOT CFIBCFLGeO]41 AND KINOSTAPEF) THEN GO ENDIT 3 02775450 T 017780 
BKSPCs F Cw¥CulFILX ef 3115 ZPCSEVENS) THEN BEGIN 103 GO BKSPC END 5 02 775500 01803 

TRS CeCeLPELAI 2s CLGS1S1AP CSEVENSE THEN GO AWAYS Sas ENDIY 3 Oo97F75550 T 0484at2 
ee a Og7 raesd t hp 

getF AND. 90: 40) KPB3 Late F re TAPEF 02 
IF Puree 1 OR T1®7 gR T1312) AND FPBCFIBC4I, C134#11)#3]. (43#5)<20 02775700 T OCT TS 
THEN apa 02775725 tT QO199%1 
ZE>17_ THEN BS «17 3 097) 020180 
lf! 2 TREN BEGIN TOBUFESTPARE: PON "yb BLANKIT END 3 02775730 7. 0203480 
END. gener ie 02775735 T 020610 
ESE Fo a) cA o. 14 THE AN: B ral, a2. ‘33160. 3. ; ., gi ap ~- 990480 
IF FIB(O}=0 THEN FIBLOJ¢23 igeTis REMOTEF OR Tis DATACOMF ] 02775740 T O210%4 
IF PIOL OI 2 AND T4 THEN 02775750 T 021544 


2 p00 
02775850. 
02775900 
Os Me few GO BPA 


a“ 


. * 5 0 * zy * x. Th = oS 5 =. 


Data Documents/inc. 


a: a +, a 5 cop S358 ae > 
a: i. oS & os, 73 3 = S & & So 


T3*#PCSEVENS) 3 
IF EDITCODEs0 THEN 
Ng NU ORM A 
JOBUFFe*FILX 3 
TE Out eg : 
es PRATR THEN 
BEGIN 
F_ NO HEN : e*P P +8 3 
POMKSa 190s T20eBSTZEsFILXs ALGOLWRITE)3 cKPB 3 
TOUT 2 cet COUP I=ESIZE on 
mee 
SPEAR? DS*#BSIZE WOSS DI eTPARS 18(OSeB8L IT” ") 3 
: ry “EROTT 3 — 
- ‘KPO HOE y PEM Has 2 OAL SB 
IF Ta THEN amelEEe Senet 0 ac BSIZE=1)( 934338151 
ENO 


REN G0 8 


AWAYS - PCL)E- ee 
oe ENG a ARE NE as oa 
3 ; dy 7.9 ¢ . 3 bib A wt MK cd 
GETNEXTLISTITEM) IF NOT OLT THEN GU BIO & 
Bos Ty¢T4; pOBUEE SIT PRNTR THEN TPaAR eee *FILX 
: | i : prn ee i) ANK e 
BOitir ARY THEN eee a 
BN2: BEGIN WHied a 


; p(Dressices INDX ) 
IF TWOT une 


1 PCOUP)> CwH26256"INDX, [4010]) THEN 
BEGIN: PCOELoMH2 I WH1eO0 END 3 
PCeLARILCINOX,! 2) OX ef BOS) eCH 
END 
ELSE PC PARAL INDXI) 3 
H2eP CX 
ST FUEL ES OLICINEPTELILED D+CLQOBUFFCT122) 3 
BEGIN: S133 pSewH2 NOSS NCDS@32WDS; DS+32W0S) END 3 
f) L¢ 
IF ARY « CINDX* INDX+HH2)<SIZE THEN IF WHI THEN GO B04 ELSE GU BO? 
ELSE GQ BO3 3 
“ND 3 
LoBUFFETIJeWHLs IF DBLPREC THEN TORUEER TENT ASL IORRGS TheTied 3 
ROaUGETHENTL ES IATER Ea ; 
ag OT COONE +DBLPRECZE aS1ZE “THEN: DBO! 
Bodarlr PRNTR THEN sh PRINTERS 
Aas 1)8T3¢3233%15)) | 
I NE THEN BEUIN P( SE EN 
“Pet YOBUFE CT 360)767. be 
Tos. GQ BO 4 . 
SEVENS8412@77777 


BrO?IF T4 THEN 
BEGIN T7+#BSIZE 3 
IF Te THEN FBS}. (3: 1]*B6700¢( #(#(FILXI])), C1$15)5P(B6) 
| FIeCe).C3F THEN TésF TBE e Tet atta) 7 


2 AND. T3)41s- GQ. B15. ENO ; 


02775950 T 
02776000 T 


02776400 


02776150 7 


02776205 


02776210 
Q 6920 


09776225 — 
09776230 
ok 


5 


05776240 


02776245 T 


02776255 


02776280 


02776550 
02776600 

oF. {) 
or Fz6700 
03776750 


09776800 fT 


09776850 


09776680 


09776885 
* 'GAgy , 


02776895 
Canoe 


: 05776910 
02776915 


‘@9 (3 


00776925 T 


02776930 


02776949. 


Op77 6945 

6OS0 
02776955 
02776957 
05776960 
02776965 


Oa776970. 
02777000. 


02777050 
02777;00 
02777350 
02777200 


02777250 7. 
O2777260 | 


02777265 
02777267 
02777270 


“Garrt200 ¥ Og00K4 
ee 


O223%1 
peste 


Og25t} 


022644 


022730 
o227"1 
t 
Ongats 
og auto. 


023783 
Q237%3 
Ore 


Sangty. 


O2maty 


02440 
O247hy 
x 


024883 
024980 
(13 OO ft: 
0253%4 
025443 


026010 
026084 
om y.¥ > 


“Basata” 


0266813 
$ 8 
027283 
027233 
q¢ 3 
027432 
027633 
0279280 
0280t2 
02863%2 
02843 
0264%2 
029040 


029110 


0300383 


0302t0 


Data Documents/inc. 


53 = Th 3 53 x 


‘ y y ry g * 7% a a 
> Oo So ® a So & oO & « 


oonx fo FO FF WHR — 


i=] 


END 3 
BIt IQBUFFe*FILXx 3 
T 


T1eP 3 


ee ARY THEN 


IF eCCAUIZESTG= T1) AND NOT DBLPREC?DUP)>SIZE"INOX THEN 
PCDEL/SIZE*INDX) 3 
. 


NOX £40182) 


BCHEANLCIADK, (anu 1s INDXe[4018]2CDC) 3 


PCDEL)3 Ti¢T1l4eWhe 3 
IF ARYe CINDX¢ INDX+hH2) <8 IZE THEN IF WHI THEN GO gl4 ELSE GO gle 


EN Leas : 
ApORtO eT QBUFFET1 I) IF OBLPREC Then ADDORELJ+1OBUFFCTI*Tl+i3 ; 


BI3?GETNEXTLISTITEM 3 
IF NOT (OONE OR TI+OBLPREC2USIZE) THEN GO BI1 3 


If DONE. THEN 


IF BSIZE+TO<T7 THEN T6*T6+BSIZE 


WHILE NOT C#CT6 INK: pi aie ca2ty) 
DO BEGIN: 103 T6e0 END 2 : 
aye: ToeCCaecetry AND 13: 1227 7_THEN 
BEGIN J[Q5 T6*0 END ; 

END 3 

FIBLB). sCarudetos GO ENDIT $ 

wie "END re ae ne mee 
ent WHILE bat bala ey (180451473. ou +105 GO AWAY 3 
Batts. 610000 : 
END 3 
If 86700 THEN 


IF LOBUFFETSs« (32347 THEN BEGIN T1453 GO ERROR END 3 
3 8 : ela THEN Haare 107: BSIZECO ENO J 
SeBSIZ 


EN 0 
IF LOBUFFLOI+18115)873 THEN BEGIN T1l*5s GO ERROR END 3 


02777295 
02777300 
¢ 


02777303 
02777305 
OpF77315 
02777320 
05777930 


02777335 1 


§ Va 


09777345 
02777350 
) 


02777360 
o2trr ¥e3 


02777375 
02777 380 


5 3777390. : 
05777395 t 


09777425 
02777450 
@ () () 


03777550 
O277 F609 


00777655 
02777660 


Os777670 


Oa77rora T 
02777675 1 


02777680 
02777685 
027) 90 


0319%2 
031982 


092493 


032541 


O326t3 
033010 
¢ 


033483. 
rae | 


DD 


0336%4 


O34733 
0349%0 


03532 


0395382 


0359%1 
pacer 


086313 
036493 
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GO TO RINSGNS . Q58 37500. —OoaRt 
ENDS : 02837600 T O289%0 
Ir SC ="," THEN GO TO L33 02837700 T 028930 
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¢ + N 1) Fete ig en OX KL OO 903 
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@” Ip SC = "[" THEN BEGIN SI © SI +13 0S © LIT ")" END ELSE 02846300 T 042583 
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3 : ; F Ff ; oe a Aa: ay 
4 NFCI ¢ (Fixe) + 23 % FIRST FORMAT CHARACTER 02883700 O582t} 
8 IF ue z pot THEN GO TQ FMERRS veaeeees 058440 
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1G IF W + NCR > LCR THEN GO TO FMERR; 09884300 T 
I NCR © W + NCR; peceeoee T 
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NAME Lrstaoo8 - . I ai 000010 
: : ga ; OPRRGAOO TF. OOOdTO 
ARRAY TEN= 22t*)> QSARASL GSTAGEREE TPAR=23(*]» FRPBE3C*)* Fyec*) + 07886640 yr 000030 
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FO95»s “VERROR » Hve CDl» CMSK» REPEATI» IEDIT» TENL1» ONDGs CKH, saensaas T 000080 
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BUFF eSAVAUFF eC eFILX) 9815) BLANK 02886480 7  O0ast ee os 39 
02868720 4! ‘e 
02888766 | F a 
‘ 42) 
END. GF GUTPOT ih oe ae | : | “02888840 1 004583 Se 
ae Soha Eg ue Pat ae ; . O28b8880 T 004610 Y 
IF (T1eP(XCH)) GEQ W THEN Tiek 05868960 004620 5 
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iN he | 02896920 7 O71110 = le 
e 2 Gaegegeo te Oe p ge ee P 
DO .PC"D"). 5 02897040 071214 ‘le 
® Dit If T4 THEN BEGIN PCOEL GO SE END} IF PC SCALE» DUP <0 THEN PCDELsO)3 02897 080 o712:2 ; 
aKPeP CD i" GN? DLR OVER QT __0 4620. 6 
o- THEN IF SRCALERSAVG. THEN 60 OVRFLN2 ELSE PCSCALE,*) 3 02897120 + O720te le 
e HEN PCTENCT3%43»4KH3¢ 180). oe 02897360 T O72q8y. i 
: ESCA Pete. pee : : GOeag7 ado O72 “—_ : . 
BEGIN 03897440 T 072883 in 
02897480 T 072984 1/@ 
| aes 02897520 O7 3433 , e 
ae END : OZ897560 T O73413 3 
or. CONVERTI : : 02897600 T 073483 — al @ 
BEGIN WH3e(HH2eHH3) DIv 185 T3eT3=T2e8 END 3 02897680 7 073681 ‘6 
e ee ee ee 02897720 T O740%4 |@ 
oti 21 2wH3»sT3 2 »WH1» FF) 02897760 Q Te 18 
BEGIN SleT213 DSeSKP CHR $7 Og897800 T O7d6t4 Ta |, 
er ScSLeT als OSe32ChR: DS+32CHR)s SkP+OLs MAYBE COLRSGNsL 345") w= 02897840 tT O74710 | 21 @ 
: . : : Nai. pita” 53 ‘ Ne F : { 2 () BOF a a0) ce $ BOO : ‘ 21 
S1*LOC NHS ‘OSeT3 DECS ST*LOC WHe} GE DECS STecoc WHI 3 02897920 T 0753%4 22 
@: DseT (DECH TOCDS¢LITMOMIS TC3QCDS*aLIT"O"))$ NOOLZ CLeCI+E 3 02897960 T 075510 23@ 
P a SI¢SGN3 DI¢SGnN3 SleSi+1; pSe HRE DSeL IT," ______02898000 1 O759%4. 2d 
; : TENSE. , oe | Se 02698040 tT O76181 1@ 
@ -: Se ee : ee ee | | 02898080 T O764%2 r 
j Le Pp: me £0 THEN oe = . gO O7 69.30. 2 
Pa STREAM(BUFF¢PIT4+SGNeIF EL LSS O THEN "=" ELSE " "sSeagScEl)) 3 02898160 T 076334 “"e 
Or BEGIN 02898200 7 076734 28 
= O{*BUFFS SJeLOC Tas S eS [+73 Seth HRS eSy4+7% OSeCHR 3 02898240 Tr : i 
: DSe2 pecs fee e ae Z | 02898280 T 0769%0 ft 
B3} aaa THE: ae : O749': 
STREAUTTeTesiracte oxi; teres 3 5898400 T O774%0 ie 
@ BEGIN 02898440 T O774t2 5 @ 
SI*T6s DI*eDI“753 VS¢Q CHR} seh ITs" 5 02898480 0 t 36 
TCOS*#3CHRE DSeL ITM") 3 . : 02898520 T 077634 . ca 
@r Boe Pengo ge | 02898560 t O77713 - | 1 @ 
3 WESAVW THEN BEGIN 7 ‘e¢P3 PCWen@SAVW)s GO x ND 3 AGAKOO FT: "O77AT0O.. 3 
Gc TEST 3 x 92898440 0781!2 ‘ 
e 
eae r 02898800 1 0783%4 6 
e OVRELWS. 02898840 T O7B84t4 | @) 
‘ Ss RE AM(WeSAVWSWIeSAVW 636) BL ; 02898A80 0784! 
: “BEGIN SEG HSL ET RES A: MA Eada Gede 17 08)3 See END 3 02898920 7 O7a7to | 4s 
oF. Test eee ee Lape eae 02896960 T 07902 4 @ 
; Th Ee ee ee ee ee ee ie | 02899000 t.. 079010 - 81 
TESTAt 02899040 T 079339 be 
@ Ff IF (CReR=1)>0 THEN GO REPEATI 3 02899080 1 0791%2 : 
i : % = Tage oe = ii caie an eee Ty . she. Oe | ? " u is 
TF UXTRA*AND 3280 THEN GO GETNEXTPHRASE 3 | 02899320 T 079313 le 
OF. TRI ¢ ee ee 02899180 7 O7958a - 
@ 


CODE*1s RePel42'4)3 GU SS 3 02899240 tT 080210 
END OF FTOUTFIX 02899280 T 08044 ® 
ees . g O80 CORDS 
1 —& FORTRAN OUTPUT INTRINSIC 02900000 t O000%0. 
a; PROCEDURE FrOUTS : % 051 CavooLge T 000040 
‘ BEGIN | “02900200 T 000010 
COMMENT FILX FILE TOP 10 DESCRIPTOR: o2200300 T 
6 MTA ‘ OR NA Fare : 
: A ySxe: ACCIDENT AW ENTRY DESC, “OR Q 02900800 f 00080 
8. EDITCODE 0 NO FORMAT» NO LIST : 02900600 7 O000T0 
kd sree ne ORMATs NO LTS oe ae ieee O8S90070D.7T. 0006 ee 
‘ 2 NO FORMAT» LIST 02900800 T 0000%0 - 
4 3 FORMATs LIST 02900900 T O000%0 
nl 4 NAMELIST 0290100 0.00030 
: . : ee oe : ae 02901100 T 00080 
M4 | REAL - eprtcape = 94» 02901200 T O0000tO 
5 : “OR R eo Bas 02901310. . O000 86. 
8 LISX = ee 02901300 T Q000!%0 
7 FI = hp 02901400 7 000030 
o DK ADR pect J - : 02901500 000080 
ae . ARRAY FMTA @ @3{*), FPS = ae ; - 02901600 7 000040 
Po NAME FILX = "6a 02901700 T 000010 
ye : uim ae. : ce ae ok : 9n1AaR00 okerereR Be 
‘ REAL ALGOLWRITE = 12. 55901000 T 0000%0 
i SELECT = 4143 02902000 T 0000380 
$ = INTEGER LSTRN = 3 a 09902300 n000tNn 
so Ps REAL — LISTYPE = > 20% 02902400 T d00010 
: : RRRAY STUFF 7 ae 02902500 T 0000%0 
3 BI R #2 029029000 re OOO 86 
aa TPAR = a3tel» 02903000 ft 0000:0. 
s0P) FIBC*)3 02903100 T 000080 
P STADRS 02903200. N0N0020 
7 | FERST BUFFER POSITION 02903300 T cOnotO 
ARGUMENTS 02903400 T 000040 


INTEGER 


Re GSES EES RE SER 
2 oS 6 & o 


= ¥ 
ae ae 


cONV™ 
ERTED NUS 


MB . 
REPEAT INDICATOR 


FIEED 


DEC 


TRAILING ZEROES 
EXPONENT 


"pS EDETING FUNCTION 
TS ReboNoant POSITIONS 


RRENT BM ‘RP: 


NEXT FORMAT CHAR LOCATION 


“a2908900 


02903500 
02903600 


02903900 
t) YO ROO 
02904100 
02904200 
0290 OO 
02904400 
02904500 
3 ‘OO u4« ere 
02904700 
02904800 


QO 04900 
02905400 
02905300 
02905300 


neeree ne 


02903800. 


ee 


-032905800 T.DOGOtD .. 


000080 


000080 


0000%0 
0000%O 


000010 
0000!0 
0000t0 
000030 
oo00to 
000080 


Oooo 8A 


0000t0 
00000 
orereveR Ga 
0000%0 
900080 


Data Documents/inc. 


@ @ 
» % BUFFER SIZE IN CHARACTERS 02905900 7 0000%0 e 
@ » % STRING DELIMITER (" OR @) 02905910 T 0000%0 
3 Y BAB PRONE ORBEL Serer eee O000%0 
’ % PAREN CONTROL WORD 02906010 T 000080 . le 
é oe “% PAREN COUNTER : 02906020 T Go001o aah 
a woe a TES ne) : ‘ A OR 059606100, HOORIO 3 
BOOLEAN DONETOG »% RETURN AFTER WRITE 02906200 tT 0000%0 ‘le 
e@ SGN » % SIGN. 02906300 T 000080 ; 
__PRNTR : : & TRUE IF _ PR R_0 PUT ee 02906400 T 000030 - ; oss 
Bo FMERRTOG ee re og % FORMAT ERROR : 02906500 7 000010 : \e 
e LTS oe ae 02906600 T 900010 : 
BPI0Gg oo a coe  & - DOUR ON TO a 9O6700 pooot 8 
CTOG » % COMPLEX “NUMBER TOG asscsaco T 000080 e 
6 GTOGA » % G EDITING TUG W=D0 = SGN > 4 02906810 Tr 000080 a 
TOG ee oe eee es DITING O) Ue tetan! 02906900 00.0020 2 
DEFINE te) ee ae ee eee : : 02907300 T CO0CtO ‘le 
en CMPLXV. Hea ae Moe 02907400 T 00010 & 
ca home : are, j O2907e Oo OOOH 26 
FTYPE = 2t» ; 02907600 T 000030 je 
@ ETYPE = 3H» 02907700 T Od000%0 7 
. ae —— —— ee ameeeerae 02907800 000080 18 
TTYPE = Ste ca ee ae 02907900 T OO0OIO 1@ 
@; LT VRE OR ap ! | 02908000 tT oopofo i 
ATYPE.. ee a ; Hs - 09908100 - N000fo. : : a 
UTYPE = 6H, 02908200 T Od000%0 le 
@: KINO = (FIBL4) Ceti, 02908300 T O0000%0 29 
b =: Pare Sere ' _ 2. 
ps MAX = HT ITITITEL . 02908700 T 00080 e 
@ - OLN | # CLISTYPE, C4uia) SOBLV)#> 02908900 T cO00tO Ps 
P ad i A ae. 444 Mad a A: 4 Fee ce A nn ea () SHonond NOOO EA : 2 
i TWOD. * LISTYPE. Caetilee | | 02909100 T O000!0 1@ 
@ »: LPPS = 151303188, | 02909200 t 000080 Ps 
i LPPR _ = ala eo eee eee ee 02909300 oFeTeTen We : 
RPT Peo = 39115) . ah psroeeco.t 0009080 le 
A: 2 «f : 7 09909610 O000foH : 
ENDLIST = CLSTRN- = (- 1) be 5 oCae0E T 000010 e 
@ SIZEF = (3381518, 02909700 T 0000t0 : 
é : = Rs 02909300 000040 ba 
“LABEL TYPERR»NMLSTs | : 02910000 -T O000t0 re e 
@- be eee STRT*REPEAT*LPARSRTPARs SLASH, STRING? TF MT OF MTERR, geet orga. t 000080 i 
ERTNpGoF sE DC» LeLeAsAApOrFAsGAsAST»COMM, 02910300 000010 ‘e 
@ AE ieee sFHTLSTs 02910400 000080 : 
COMMENT * * eu ® START OF ‘SUBROUTINE DECLARATIONS ee ee aeeTeuenirs ooooto. a, i 
@ SUBROUTINE. OKPS: CON Be Ce 02910700 T OO0OIo . ‘ 
“QIN: COMME ITE TLAL ; LE AND ACQUIR RE ORO 029710800 fT. 00044%6 45 
LOR ¢ 8x(BSIZE ¢ PCNKS*FLG* DKADR? 09 (= TSSrILe ACGOLNaITC I) 02940900 T 46 
@ IF PANTNFPRNIREE CCT EE TOUR Te Coad del OR ier OR 7112) ANDO FPBEFIBl 4) 02911900 T |W 
A7y7t 0 sa 
If BSIZE 2.17 THEN BEGIN Ler + 432) re * 47 ENDS PrLEERSY t ete 49 
°F QUFFeCtE THePANTE AND ¢ TcOpEst OR EDITCOOE>2) THEN TP aR ELSE *FILX) S291 E087 OO16? 4. bg ® 
E 33445). 02941200 7 OQo020%2 sy 
e IF CCNOT Th) OR PRNTR« (46%1)) AND EDITCODE?2 THEN 02911400 5 
@: STREAMCP2 * (BSTZE"1).C36%6)> 02911500 T «| @ 
P3eBS[ZE+T1+1+P4eBUFF ) ; | 029 1600 T 
B5| F BEBIN: OL * eM S$ ¢ 8 he eid foe : J 5 
@ @ °@ 


Vata Vocuments/inc. 


6 a * * * a G * A ~. TB = Th <. 53 > 
oy o & oe So & Sp Oo os 


DS « P3 WDS; 02912000 T 003131 
ENDS 02912100 T 003483 @ 

NCR ¢ Q3 029 00 00 0 
END CKPB3 02912400 T (003a%3 
ede es PRNT3 ee — 02942500 7 003380 
8 N UMME WN NERATE f : OR Oh NO OR OUTPI O29 £00 HO32I10 
02912700 YT 003310 

race es T 


, STREAN(PISOIPROTPARD) ae | | 7 43000 7 00362. 
BEGIN SI #P2s DI + LOC. P15 01 or * 7 DS eCHRs 02943100 7 003810 
Ht & P23 pS « LIT" “SEND fs “ rae 049500 5 .003610 
NCR « P# | 02913300 004080 
IF NCR 3" " THEN D2 © 16 ELSE a 02913400 004082 
_IF NCR = "0" THEN p2 « 32 ELS 02913500 T 004282 
eee NCR. = "e" THEN 02 ¢ © ELSE: : | 02943600 T 004510 
“TF (02 © NCR) > 9 THEN o2 + 108 : 02913700 T 0 
JNO ERA ae 4 Boor 
P(MKS» D2, (4212) "D2 fA ATUAG PENT Hs tho V1 17 BSIZEsF ICG ACEOLMpITES 3 02914000 
FLBC61+F1B161~ (D250) 3 | | 02914010 
NO re N P ¥ » f 0.0.000000 “Ms DE ow: , 4 
PRNTRE LS CKPB re 92544200 T 006310 
STREANCP1eTPARSPaeep 1LX0P 3688126, (3616) /P4e8S1ZE)3 02914300 Gassto 
SI + Pl} DI « F2s DS « P4 WOSS eS Obs aec6 006712 
P3(DS #32 WOSs DS * 32 WDS); 02914600 006819 
: 4 9 woo om N50 640 00695 
SENDS” 02944700 0O72!0 
FIBC17IeF Bt 7I-BS1263 IF bone ros THEN POXIT) ; 0291%800 oo72ty 
Ni) oe i é OA AUR ae : 1 44006. : ofa s..'8 
IF DONE TOG THEN POXIT): 02945000 007833 
CKPB END 3 02915100 
PRAT ; : —- - beh 
~ LABEL weed a a ae 
REAL SUBROUTINE NECS 


NFCLt 02915600 o082to 

etre NFCI» oii < a DO NFCI ¢ NF CT + 43 seeteeee poe. 
TE . A a ~ A ; : ; m 

acai Or « 4,0C Pls. DS « ? LIT Tor . Sgeieose Foose), 

SI + LOC P23 SI ¢S1 + P3508 ¢ CHRS | 02916000 008983. 


z PF : OOSOt3 
ENDS Bou eaos Q091%4 
NFCI ¢ WFCI + 13 IF (CHR © P) = " ® THEN IF NOT LGTG THEN GO NFCL3 02916900 009122 
N cee Ol 0]: 5 Eee ee : setae : 029417000 T 009510 
END NFCA. ee ae et anew 02947400 7 009512 — 
SUBROUTINE 1Sts . a Oavse Ree Fo ieyaes 
pee e : A * 900 FT 00GKL6 
STREAM(P 1. ¢ OIP2 ¢ ‘BUFF >P3 ¢ CHRI3 osu 766 009610 
BEGIN SI ©« LOC F33 SI ¢« SI + 73 02917500 Q097!2 
—O]_« pes DS ¢ CHRs Pi ¢« O13 02917400 ON9AIO 


02947700 00983 


gay) 7000 rth 


% PARAMETERS FOR LIST CONTROL ——— > Gs67Bg00 : 
BOOLEAN ATOGsTNOTS 02918100 | 009933 
02918200 0099 


Data Documents/Inc. 


ay n 5 ee ks 3 >. 3 


4 2 + 


exo ELS a 


a 5 Bite tise 2% hie aes oa <= 
antenna tinier tenement 


“BEGIN 


ELSE ARICINDXIJ#3 


a ea GETLISTs 


SATE. IF ATOG THEN 


BEGIN: 


BEGIN ‘ 
WH1 «© NXTELMS 
\ , NO 


“WHe © ae 


WH NXTELNS 
WH2 ¢ Q3 


Nf) 
oF IND *INDX” + 2) 2 donde THEN, 


ARRAYS eee 
aTOG ¢ FALSE: 
END? 

ORT 
ENDS - 

IF. eT0g THEN ae Be y 
ae MARY PART Oe tome 
WHi. « LISTADRE1]3 
wH2 « Q8 


GO TO RTNLST3 
a3 TADR «+ £ i 
IF ARRAYSTUFF 7 0 THEN 


« 
SIZE ©¢ INOX*ARRAYSTUFF «BASEF)*ARRAVSTUFF 0SIZEF , 
/ THOTENOTS A TE DET ADROMER Th TST AGA (161153305 70P 27 PCDEL) 4 


a {1 ur 


ENDS 

PC(DEL)> 

WHY ¢ LISTAUR(OI3 

WH2 © JF°OLN. THEN LISTAOR( 4] ELSE OF. 
peek hg CMPLX3 


FAD CEILISTy 


SUBROUTINE FORMATCONTROLS 
B i 


STRTt ; 
; HeDeCODESSKPeRPTEO! 
SGN «DONE TOGeFMERRTOGer AL SES” 
CL1® COMMENT CHECK FOR SINGLE CHARACTER EDITING TYPES; 
IF NFCS9 THEN GO TO REPEATS % MUST BE REPEAT FIELD 
HR = "C" OR CHR = "2" THEN GO TO LPARS 
TF CHR 2 "2" OR CHR = *£" THEN GO TO.RTPAR? 
a IF. -CHRS"/" THEN GO SLASH re eee 
ae HR soe OR HR #8. THEN a 0. RING 
IF CHR="T" THEN GO TO TFMTS 
SGNeCCHRa"=") @ (CCHRE"+")(284781)5 
IF SGN THEN 


02918700 
02920200 


02920400 7. 


02920500 


PAOD 


apesoren. 


02920800 


02921000 
02921100 


ont 


02921300 
eee. 


02921600 
02924700 

2 HaOg 
02921900 
02922000 
0292210 


02922200 


02922300 


05922800 
eeeeeoe 


goo en800 


02922900 
4 LA H0 
02923800 
02923900 


02924400. 
| 02924300 


AOU 


“05954700 


02924800 
0) * 924900 


05955900 
02927400 
02927500 


02927600. 
02927700 . 


02927800 
02927900 
02928000 
02928100 
02928200 


2928300: 


02928400 
02928500 
02928590 


02925000 . 
02925100. 


ae 
T 


4A we ++ 


a4 


tte a de ee 


044183 


046410 
O16ate. - 


0099383 
009933 


O100t0 


StETY 


010282 
O74 
~ O1r0ass | 
11213 


O1t3ty 
pees 


“oliats 


0420%4 
OR B268 f 


012182 


Q12271. 


0 ° 

012213 
O12g2t3 
) : 


042322 
0125140 
() e 


0126! 


0427%0 


012890 
012833 
0 QO’ 


013010 


019273, 


EEE 
013683 

013720 
013733 


014410 


074410 — 
OF 4st 


014882 
Ol14gi2 
04151380 
015342 


015610 
Oif . 


é 
END? 02929000 T 016782 
IF CHRE="," THEN GO TO STRTS 02929100 T 016732 @ 
RPTe¢]3 SE eee are ee eee 02929200 O16R3 
' CL2% COMMENT. TYPES WHICH MAY HAVE REPEAT FIELOSS 02929300 7 016982 
2 If oN. a THEN RPTeRPTS : 02929400 T 0469802 
3 Bos AEN GO TH ' : 09929800 0 
4 RPice OR SGN.«L2%1) THEN GO TQ FMTERRS 02929600 01722 
. CHR = "(€" OR CHR = *%3" THEN GO TO LPAR3 pere2 coo 017580 
6 
7 
8 - 
3 


TF RPT SO. THEN RPT od ere oe | : 02929900 T O47a!3 
| ene She 2 xe THEN G0 10 SKIPS” a sagt eo 92930000 t 018083 
ied mi OMMENT : : : ; 9406 GTi CaEEES © 
ba IF CHRS"]" THEN CODE. + ITYPE ELSE 03930200 018210 
LB) IF CHRe"A" THEN CODE ¢ RES ELSE | nevae sce 
Me : = Rat THEN CODE. : 02930400 7 _0 
| “IF CHA®"O" THEN CODE + PNR ; 7 02930500 T 04 
My aoe lt CODE. 2 ITYPE THEN GO To CL3As : 02930600 T 
5 ea i : : a, oe. AND OD i : yy ag SAD 
6 If CHRE"D" THEN CODE « OT YEE ELSE 02930300: 
f IF ChRaME® THEN cObE * ETYPE ELSE 02930900 019433 
R= () 
af IF Spree THEN cope. + GTYPE ELSE 03931100 019983 
pC GO To FMTERRS : 02931200 - 020284 
: 2A: OMME NT 0! ‘4 ' FIFIDg: 924300. N305- 
P IF NFC>9 THEN GO TO FMTERRS : 02931400 T O202%4 
WeCHRG 02931500 T 0O204%0 
WHILE NFCS9 DO we Oxw+CH , ONVER O OCTAL 9 AL A00 0204 
NFCI#NBCI@ 13. | 7 On63;700 020984 
IF W>63 THEN Go TO FMTERRS ae . 02931800 T 021082 
ik 2 : rEeF A ‘ ¥ es a: ; ‘ cm 


COMMENT DEVELOP D FIELDS 
PreNree ee ones a = FMTERRS 


ETE Io 
Soeerey et 


Data Documents/inc. 


wD a = Th 5 Th 5 


{) () 
C21710 
Oz17t3 


Coes. ee oe 
WHILE: NF OS® Do oe10xoscnay x CONVERT To OCT AL 


Tey p5935400 


—NECI*PCOUP)¢L PPR} % RESET TO 


022332 
LPAR: COMMENT GENERITE PAREN CONTROL WORDS 02932700 022430 
PCT70 AND APT=O THEA 22932710. N22u%0 
Ti « APTENFCILLPPSI&(RPTSO)L114711 93 02932800 T 022780 
IF PCT Ss | THEN ogee ¢ TL @ PeTcardate)s 02932610 T 023044 
PCTs ee" 
go TO STRTB. 09932900 T 023510 
RTPARS COMMENT POINT AT LEF1 PAR IF REPEAT NOT EXAUSTEDS 02933000 7 0235%2 
NORF_THEN ~ 02933100 Q2353 
ee % NO REPEAT FIELD. a es . 02933200 fT O236%82 . 
-DONETOG « ENOLIST# - on 02933300 T.. 023710 
__PRNT & WRITE OUT RECORD 05933000 1 O23Rt0. 
IF (PCT ¢ PCT = 4) $ 0 THEN. IF PRCWePCF 240 02933410 T 024010 
THEN BEGIN PCXCH*PRCW)$ PCT © 2 END ELSE PCT © 13 O2933420 T 02430 
NO SE = 
joe aeons IN "02933600 1 
aie @ fo COUP) aA TF $ 1 Ce 02933700 7 . 
OURS EN : PCT « PCT = 4) GO TO STRT END 8s fie 
is a5. ELSE PCRPT ” LeGCX)? 02933900 
ENDs 02934000 


Data Documents/inc. 


a Sts Ry Th Ry Th 5 ~ > 
o> Oo & ob x @ & 5 3 


RPT¢CHR3 02934500 tT 025433 
ae NFCS9 DO RPT* 10xRPT+CHRs 02934600 T 025582 
029347007. 0260 
SLASH. COMMENT WRITE OUT BUFFERS - 02934800 T 026013 
PRATS Oggsaco. 7 026013 
cre “60 TO ST : 935000. Ogfo9In 
“STRING! COMMENT MOVE STRING FROM FORMAT ARRAY. To BUFFER: 09935100 T Gerais 
QUOTE © CHRs % SAVE STRING DELIMITER 02935110 T 026282 
¢ TRUE CHR ¢« AN Verse e lO JT _ 
STRAS ae “(NCR « NCR + ay > LCR THEN GO TO FMTERRS 02935300 T 
: oe : et 02935400 T 
deere ¢ FALSE 3 GU To STRT3_ 02935600 T. O274t0 
TF Ti COMMENT SET BUFFER TO CHARACTER POSITION INDICATED BY FIELD 02935700 T O272%4 
At OWING "TNs —_ 029359400 7 02 
| RPTONFC)>9 THEN GO-TO FMTERRS 029359007 Oaraty 
3 MEGS? 0G BEESIGRRE TORRE | 02936000 T Qarate 
NCBeRPT= i 02936200 1 pgapis 
TEMAS BUFF #CCIF PRNTR THEN TPAR ELSE C*#FILX)) INX 02936300 T 028133 
aes er lite. R 10149 02936400 7 O28 to 
60 TO 02936500 y O286!0a 
SCALE -COMMEN l “FACTOR oF Pp PHRASES Vaveeees tT eeeree 
* : 2 4 O48. 4 
Go TO “STRTS Ososaedo T ere 
HOL® COMMENT HOLLERITH STRINGS 02936900 T Q288%4 
tel indents 029 3700.0 NAA B 
a “WHILE RPT >. 9 00 : : 02937100 T 028980 
BEGIN : ee: 02937200 T O290%4 
NCR oe NCR + 1 > LCR THEN GO TO FMTERR? 029 00 0290 
CHR ¢ NFCS IST; 02937400 T O292%0 
RPT+HPT@43 02937500 T 029680 
NDS oe 02937600 T 02973 
LGTG ¢ FALSE GO TO. SIRT gt 02937700 7 029743 
SKIP COMMENT %. PHRASE} _ oe Q2937800 T. 0299%0 
“IF (NCR © NCR+RPT) > LCR THE NGO to FMTERR 02937900 T 029910 
GO TO TEMA; 02938000 T 0304%4 
FNTERRS FMERRTOUG+TRUE; 02938100 T 030133 
T 099 38200 0307! 


END FORMATCONTROLS | 
SUBROUTINE FUNNYZEROS 


SKP ¢ W = (D464SGN)3 
STREAM(P1© BUFFIP2eSKPsP 3¢SGNeP4e(D+4))5 


DI #Pis Ol « pl + Pas 
Face * i uaa une: ‘OUT To Ty 


t D ¢. 
PacDps € Lit . "93 
Py ¢ DIS 
ND 
BUFF « P3 


| END FUNNYZEROS 
_SUBAQUTINE FINDES _ 
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PCWH3/TENE™ MNTSSAI]™ te WH32ISD)s T3¢GTRMI 3 
IF CWhseWH3+) = TENCT3 J THEN E*CLISTYPE*1LI+E 3 
“ND 
IF MNISSA aoa 8 THEN 
BEGIN : 
LP Cwhg TE BeT2eMNTISSA 
THEN GO BUMPWH3 ; 
ENB 
If PCWHy/TENC y6"MNTSSAIs } 
THEN IF i RE asin THEN oo SURFNKS 3 
END OF ROUNDANOSPLIT 3 


Ps BUMPWH33 


e 8 KR 


SUBROUTINE OUTPUT 5 

BEGIN 

F PRNTR THEN 
BEGIN | 
FIGCL726F1BC171489IZE Be 
P(NKS» 29 00CCrBS12! X*ALGOLW 


Aen ee 
Oo & a 


If NOIC#PILX), TO 
$ SET OMIT © TIMESHARING 
TH LX» @2000000000s2+ COM*DELs DEL 


$ POP OMIT veg ae 
s SET OMIT s NOTCTINE HARING ) 
a ND. 
ELSE IF NOT cc THEN P (WKS> FLG» DKADDR» 0» BSIZE*FILX* ALGOLWRITED ; 
PC MKSeFLGsUKAQDDRsCHREOa(= 1) sF ILXsALGOLWRITEsDEL) 3 
PRNTR THEN B Z1+FIBC17)"BS1Z 
jPCDUP), £36161, BUF sBUFFeCaFILX)y 338152) 3 


BEGIN ws g “BUF oo pSeps. ‘WDS : Bt DSe32K O85; O9¢32 
END 3 
ENO OF OUTPUT ; 
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O2976res 
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02976950 7 


ar rbeee 


02976995 
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02977055 
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02977100 
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02977235 1 
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02977565 
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Oat 5. , TRIS 
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02977175. 
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ee 
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IF PCPCDUP)+WDTH+24SVMAXWD TH*MAXWD THs OUP) +CHR>MAXCHR - 02977640 T 0107306 
@ THEN OUTPUT 3 02977655 T 011040 
CHR¢P+CH ——___________02977670 7. 0 
“STREAM(SKPeLSS}+PileLSSi, C36:6]¢BUFF) 3 02977685 1 O11ate 
e BEGIN: O1eDI4sKPs 6016014323 O1+D1+32)3 SKPSDT END 3 02977690 + 011544 
ae NIDENI THEN : Door a00 T Oiiaio 
td) BEGIN 02977715 T 011833 
__s al AM (Ne S$ eNAMS | ATO 93 3 SS © CNN O)eB F) 3 029 6 Q 93 
BEGIN 5 02977745 Tt OQO12013 
@ “Sleyoc Lssis 5148142) DS*N CHRS MAYBECT#Le™(%)3 NeDls 02977760 T O1zata 
ee ee as Se : y 7 O “oO 
“BUF FeP ; 02977790 T O125!2 
or FUR MS3eQ STEP 1 UNTIL NN DO 02977809 T 0126380 
BE sete Se a he as Oh eo O12780 
Fie PRE ANE NGSUGSENSUIPERNIVONIUNSLNGTI, C33s15)eBUFF) 3 On9778 95 T 012740 
eh. Ae _ aEGIN S1+loc Gs DSeN ECs DS*LIT"s"3 Neol END J 02977850 T O42983 
END 3 02977880 T. O132%4 
| a STREAMITeCNN120) ERETYPESCOMPLEXR» 1+ TY PESCOMPLEX I »BUFF ) 3 02977895 T 013482 
BE 02977916 01437: 
‘ hE es “Clecr#T? GO TO Cs DieDi-is DSeLIT")") LI 02977925 tT 013713 
i o pe) “Checiveg 60 a Ls DS*2L TTR"; ee . 02977940 T O139t4 
D £23 pS*e2L 7 "918: sSe Mats Ted : O3977055  Ovaot 
P “END ; 02977970 T 014232 
@» BUFFeP 3 02977985 T 014283 
F fort! 8 i Ss — Bacar el 3 . iF 
END: OF. CHECKBUMPANDSR IP i: toa . 02978030 T 014384 
@} PE ecg ous 7 02978045 T 014382 
2 BRO BAS ICON’ : H : 3 anne ener ee TY Ne SA, 029780460 } O1td 
BEGIN | . 02978075 T 0144%0 
@: IF. TYPEZDBLPREC THEN 02978090 T 014480 
B0 Qj ot eee Sek A > 
2 re ‘THEN BEGIN WH2¢WHL DIV. Tene Teeeerples END . 02978120 7 O146t0 
@: : eee eet ‘T2403 TieE END FR | phd eae T 
“WOTHeWDTH#TI 41291 3¢SQNSDECPT , = OUICE T 0152t2 
CHECKBUMPANOSKIP 3; 02978180 7 015533 
STR AM WH3SWH2e WH aT 2 Tae PFNL*e DECPT»ENRe SGNeTRZeBUrFe) 3 02978195 9) t0 
BEGIN 02978210 7 016083 
MAYBE (SGNsL1,"=" 5 SGNeDI 3 : Bas7eats T 046083 
L¢DI+DECPTS ENRCOSeLIT"O"Ds STe_oc WH33 DSeT3 fp . “03978325 Tt. O163%4 


Racha t eaten ese ee 


“SleLOC WH2? OSeT2 OEC$ SleLOC WH43 DSeT1 DEC 3 02978240 
TRECOSSLIT™O a WH3e01) CIeCI*DECPTS GO Tob a 02978255 
: TEND Pees ott Cerner % oe 02978265 T O170%4 
PCXCH) , : | Cees (02978300 7 017082 
ENB OF _BASICON H } , de na : () : 0) 
. 02978330 T O4718%0 
SUBROUTINE FINDE 02978345 T OQ1i71%0 
Ogt 4etars aT S2tijepasep 2JIXPCLOGS) 3 02978360 T 047110 
.E a ee ae -_ 02978375 T 047582 
P Le “suaRouraNe: ETH 3 Ba ee Jf wits ee “Hod yp beplbet gor ge 017542 © 
dy Ese J 2WeMmax HR/RS waq “WOP i? jw 978005. “O17 aAtko © 
62 ELSE IF ui NAMS=0 THEN 30 ELSE PCNAMSE NI] DUP) x6s(P(XCH)>0) ECELIED T O179%4 
+37)<W THEN MAXCHRECCWETL)#2)xR 3 . 02976435 Tt 018482 
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5 , y ey 3 a . = TS 3 
en oS & 3 Oo & a :3 


Ie NI«<O THEN 
BEGIN % SPECIAL _SINGLE EDIT. 
eh N]Ve WAHL e VRS HO 
IF CTYPECIF itPEna THEN IF VL 30 THEN IF ABSC VN) SPC MAXIL) THEN 
IF SCRE EEG EN GeV THEN 1) ELSE ‘3: ELSE. 3 ELSE 5 ELSE TIPE) «0 


HTT EEE SyMAXWOTASHAKUDTHOLE W¥0 THEN W ELSE 62 F 
MAXCHRe 64 GO G1 3 


OKADDR<O THEN BEGIN myarts DKADDR*G END 3 
eUee ene eee uae 


Oeds PLL 


onwmon~z oOo 70 2 wry = 


fo 8 iD 


ee CRint St 4a 96940 
F CHAS? FLGs OK ADDRE Qs ¢* 1 )eF IX? AL GOLURITE) , 
1+ TOP f 


ioe ian te Pouch) + t36483 970 AND. Tire AND T149sSUQ) J 


14) 4 
ad ae “PRNTReC(TieF IB 6a), (ara day OR as a7 OR a 1 “AND Pe B 4 
he Aaa C83? 5 3<20 THEN. 
er BEGIN IF BSIZE>16 THEN BEGIN MAXCHRe1323 BSIZE«17 END} END 
al ¢ 
9 fe OUTPUT 3 
en. Sd es Coes yer 18001 THEN FIBCOl¢1 3 
. : CUSTRNG 1) ZF IB00O) AND Tise _ 
p2 THEN P(MKSsFIBL7]>FILX. C33!245)]> a> FORTERR) , 
7 MAXWDTHeEMAXCHRe? 3 
i¢ ARS W 149 THEN 
BEGIN: 
OTF WOMAXWOTH. THEN WeNAXHOTK ELSE MAXWOTHON 3 
27 5 : : -R#4Q THEN 6 ‘NAMA Db N ND 3 


5S 8 Ss 


END 
ELSE IF R40 THEN BEGIN PC1)5 GETWS MAXWOTHEW END § 
po al MAXWOT ner Hae 3 


oO START. op 
HLF EET O43 poe 
. “9.90 


: e856. 0R99R . 
TuORTET IIe 4599990009 3 
MAXI{828 @O0007777777777777 3 


BUFFe*P3. IF NI<O THEN PCBUFF*RTNDS TYPE*ABSCTYPE) # 
STREAM DIBUFF BEGIN Sleiac vs. S1eSESTh 0 DSeSHR) © DIe*OI+1s DeDrI END 3 


START! 
IF. ARY THEN 


“WHL*NXTELM oe 


ALILST3 
: : IF NIDENT. THEN. . 


PCINDX" ARRAY STUFF « INDXF) 3 
IF eae ones THEN PCCP41) ae ide TeeP 3 
YP XR THEN TYPE eCOMPLEX! =COMPLEXR) 3 


et yim ater” a1 UNTIL 0 00 


a2 le tT 20! ey s 
IF (T2eTe MOD M33220 THEN T2¢MS3 j 
END 3 


ILPREC THEN WH 


MTELMS ARY@INOX<BIZE + 


WHieLTSTappRts)) TYPEeCOMPLexT END 
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02978489 


02978493 


(02978495 
t Oo? A OG * 


QO2978499 
eee as 


03978510 


Neonode 


02978590 


02978600 


nen 


02978630 


02978645 


02978680 


02978661 
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02978705 
02978720. 
V297 87 


02978750 | 
02978765 


O22 9O7AZ7 AO 


02978840 
02978842 
029788 


02978885 


aes ap 


02978960 | 


02978975 
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02978555 


02978870 . 


02978915” 


02978798 ¥. 
oz9rseio 


02979005 T 
02979020 7 


059790 
02979050 
02979065 
4 : ¥Y 0.8 0 
02979095 
029794310 


02979440. 
Eb 4 babel 
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eset 


| 02901 


oseatt 
0a95t2 
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02012 


020014 
Og0783 
+ ae os 4 


0216#2 
O221%2 
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023410. 
023640 


eosets 
024510 
0250%3 
0254!0 
Q 
O25ata 
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0265!0 
026814 
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Qe74%0 
aeekye 


027730 
0277t0 
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aentie 
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030333 
030510 
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a. . n nS ee v7 = 
& 5 & os 5 v3 op & g P. as o g ~ 


cor 


ELSE BEGIN 
eee ee A head TYPE*LISTYPE.TYPEF 3 
RR A \ Scie Bn Rhee 
THEN NNIeNAMSEN[OTeCit@)e1- ; 
das ABYOARRAYSTUFF 4018130140 THEN 


IF NIDENI THEN 
BEGIN 


¢ 


“FOR Teel STEP 1 UNTIL rrr 00 sussct2), (18815)6T4 


eTyxsuasrT2ni), (33015); 


ent 


: eae. ae: — 
IF TYPE=COMPLEXR THEN. TYPE*COMPLEXI 3 
SIZE*CINDX*ARRAYSTUFF 6 TNOXFISARRAYSTUFF » SIZEF 3 

f ReMe M ADDR 

y Ds TOP Ds "PUDEL 3 


uke gay oe te 
WHLELISTADOR(OI3 Te ; 
IF TYPESOBLPREC THEN wH2*LISTADDRO1] 3 


END 3 
IF. ee THEN. Sua oe 
‘BEGIN ae he Sage ee | 
__STR LTPAR)S 18(0Se8L tT al ieee tad 
IF NOT PRNTR THEN IMR G+ F CUS ORAUDED OF 6 SIZE SELIG AL GOCART =D 5 
PCXIT) 3 


ND 3 


 MAXWOTHS@SVMAMWOTH 3 


oF NIDENT THEN 


T3CNNLZ0)4* (NAMSENID Je 9 ped GNNTs PCABSCT ChE IeCoNPLERRU GUE OT 
FOR TLSyNs STEP “1 UNTIL © DO 


os! 2 


TWH LE TENttgiaus3 DO TaeTaty 3 


“Taetaet2s Supsetil,cistalet2 a 
IF aa 9 ae -T3)80 THEN GO OVRFLW 3 
END 3 
PE=LO ICs Tk 


BEGIN 

I ‘CAD THe?* WHEW HT AND MARROTH THEN WOTHOMAXWOTH 3 
CKeU PAND.: KTP. Se ee ie ao ae 

STREAM (SelF WHY THEN P (TRU) ELSE P(FALS)tZeTlewDTH> 1p 
QeTZEWOTH>ZeNDTHEWDOTH@TIeT2°Fe3eWHIs BUFF) 3 

BEGIN _ Z | 

— ST#LOC Ss SLeSI+F3  MAYBECZoL 19" .") 3 

_BaeeeTh, cHRE MAYBE CQsL 20%) "2s SHDT 3 


Go BACK $ 
END OF LOGICAL 3 
i 


Susteren. AND TERM INTE Gs 
WHieTS0) 


@O0 ZERO ENDS FINDE 3 


#DLA? NHISs +s DEL 


“02979800 


02979995 


02979185 
02979200 


02979230 
02979245 
neenes7s 
02979290 
02979305 
02979320 
02979335 
05979965 
029793680 
e ) e 


02979410. 


02979425 


02979455 
02979470 
0297948 

02979500 
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02979545 
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02979590 
02979605 
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pert 020 
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e7t yey 
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r¥9680 


pease 
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tt 


tte we mate a et ea 
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4-44 te 
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034582 
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“ ts 6 . 5 a og es cs Gg 


OTYPEs 


MAXIE? 


TRUEEE 
FALS&:33 


THREHES ES 
THR me. 


IF LSS1*E LSS O THEN PCOsTENCOJ*TENLOSO"EJ>TENL@EJ]*0LD) 
Sees EEN rE? TENCE)) 3 


IF “TT GEO ws bolas bul TA>WHd aR. ‘TS? m2 THEN Eeent 3 
ENR¢24 3 heeee 


LOL TEs PCDLD)) 
A ee on T36P , 


PeT3ePsWHis URAENRN2A tsp, TI 


pear inaad TENCA6]2DLMe0LS) 3 


“ade 0.meDUSs yh 151805080)" Fr 
BEGIN P(DELs8) ; 
IF CLISTYPE¢WwH2)=0 THEN BEGIN PCDEL,16)3 LISTYPE*WH3 END 3 


COUNTZ3 T1i¢P4eTl 3° 
IF USEXPNOTATION THEN 


Te ENRSq ashes THEN 
IF €=T2 THEN BEGIN DECPT+FNR+O; GO OFTYPE END 
I Re 3 


a Perit WHLeMMIS) TYPE DBLPREC) GO a END 3 

ROUNDANDSPLIT. ; 

: C. 3% HEN NGO. 4 00. : : 

IF LISTYPE THEN PCTENC(T3¢T34C IF LS$1 THEN =l0aE ELSE *(9s 
£1)" 1} sWH32 150) 3 


GQ_ 
@0007T 7771777777. i, 
pike ee edn bie 3 


ag GTAMISENRE 
ae NOT ¢94 


NW TRUE™ 3 


Ba a 


IF FRLSFNRETE TREN: 
nie bee es 


IF rSSt THEN ENR¢FNL = Ee". 
ELSE IF Fee ene FOES 
c +RND 
TGTAMTsTISFNRENRS "ROUNDANDSPLIT a 


ae LISTYPE THEN 


IF DECPT THEN DECPT*FNRTR221 
ELSE BEGIN 
] PT¢ H3¢ *RNO Pej; 


ger THEN gorae } 


ENC EEN (E20) a 
IF LSS] THEN IF NOT (TRZ*(ENReENR@1)20) THEN ENReO 3 
F <0 7 HEN iQ GOTO ; 


- PCTENCET 367361 yoadesWHG1SD) oa 


02980085 
nee ntoe 


05980730 
029860445 
029804160 


02980175 


gerev ie? 


02980265 


ek be bate 


o29g0310 1 01 
02980325 — 
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02980355 
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02980400 
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02980485 
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02980505 


02980535 
02980550 
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045984 


oes) 


ont 
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aaa 
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seaneeee T 0 


cree 
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oseg0g7o 
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() ® | 
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END 3 
PCWH3/TENCRNOUF+6)>5)3 IF NOT FTEST THEN GO OFTYPE 3 
O_O 
END OF DBLPREC 3 
IF MAXROTHEE: TRER G0 TO WAXWOTHGE £: 3 
IF “EeWHLEO THEN 
BEGIN FINDES E*E( CIF €>0 THEN TENCE) ELSE 1/TENC™EJ)>71) END 3 
3 AND EST2 THEN 
BEGIN Ef ar : 
anVPer ihe : 


vi oe 
IF WHY 20 THEN 
ZERQ! BEGIN FNR*O4 FNLe1s GG FTYPE ENO 3 
BNDUF ¢( MN S$ SA P WH ¢T1» Ls AE 


S1¢0>I [HEN 


LISTYPESP CH, 


wld me. 


CQUNTZ 3 
IF CT RMI QR USEXPNOTATION THEN 


ats ENR4T3 LEQ MS3 THEN 


ervee ys aE 


oP 
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BEGIN 


VA 210 AND (rererNE OUP +ENR 
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END = - 


SE PCTENLABSCE+1©€ NE NR THEN PC» PC yd) $ 
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IF a TREN 
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5 oD oD o as & 9 om 5 g 
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END : 
ETYPE1! IF PCRNOUP AND DECPT=0s0UpP) THEN RNDUPSO ; 
GETWOTH | 


If P THEN IF ERC" 10) ane papier THEN ene 


a WpTH<S GN+DE HEN NOTH THEN 
NOFIT! BEGIN IF NOT ESSt THEN GO OVRF LW: GO ZERGES END 3 
oa 3 


2 STREAN(GTRMTIFNReABSCFNRI) SOFNAZODC OTF ABSCTYPE )mOGLFREC 
a eee pe ELSE MEM *BUFF) Bee 


SIleLOC Cc ‘SleSle7# OS*CHR} MWAYBE(SoLo¥e*) ; 
SI¢LOC FNRZ USeGTRMI DECs GTRMIeDI 3 


FIVEPTSR! 
_GET3E 


FUNNYE? JF areerte OR GTRMI) THEN GO CHOOSEL 3 
IF CENR©MS3"T3)21 THEN GO ETYPES _DECPT+O ; 
cE T R 


*) ASI#HALF) THEN GO NOFIT 3 
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02981720 ~ 063732 
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6 @ 
FTYPE: PCWHIXTENCFNRJ»,WH{>ISDI3 DECPTe4 3 02981885 T 0655%4 
@ IF *2<E AND WHITENCECFNL+FNRJ THEN 02981900 T O0657t2 e 
5 nN \ bee FN LN ¢ Lad ® PT«FNR QO)" AT L) N 2 6 B Ob64A0 c 
1 SETUP?! ENR*TRZ¢03 GO FITYPE 3 02981930 0666!9 
@ | ile Boe : | opebi yas : 
3 Ro ) i A, “(i 4 , GA 4:9. : 
4 IF Lssi AND SGN THEN IF MAXWUTH= 2 THEN GO MAXWDTHOF1 3 02981975 
@|: PeRNDUP)S IF NOT FTEST THEN GU FTYPE 3 o2961990 
7 nal Z ALN _ : gp 
7 Seno) ie AA : | Seaseoo 
@.: ty 38 cut Gay ae en ak a 02962035. 
9 ‘ty Oy &- oi 


OT GTRMI THEN PCWH1s WHI? 15S 67543 


i IF dD) 3 02982065 T 
er TIF TENCE*E+,)=WHS THEN GO GET3 3 02982080 tT 067752 
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@ . OVRELW 


Wt) He MAX : PONT ) NIQ¢ 7 : and IMPAND KiPFs NIVCF 


2 T 
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eo,” Bain SVMAXWDTHCOSeLITMx")5 SC32CDS*2LIT x") )SSYMAXWDTHED] ENDS 02982160 0691%2 
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9] ~ END oF FORTRANFREEWRITE 3 . 02982185 T 0695%2 
@ » ares | Sr SIZE® 0696 WORDS 
i Wo PROCEDURE PINNAME gS em O29R2500 000020 
pa START OF REL SEGMENTS DISK ADDRESS = 00425 
@: BEGIN 02982520 T 00040 
COMMENT FILx ss SOF LE TOP 10 DESCRIPTOR 0298 000040 
FMTA FORMAT OR NAMELIST OR OO. onoagseo T 900080 
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2 P(MKS* FILO Xf33%15 ORTERR I: Sena Ra een See eee ee ee ee ra 
e Pa END FINNAME 3 je EE es an . | 02991240 T Oadsto a 
ets — : Sizes 0449 WORDS : 
& 5 PY RO aneda QUTNAME 3 4 . é : oe crt nee tum y 9 0.000-14 
Pe START UF REL S SEGMENTS DISK ADDRESS = 00440 ar 
20; BEGIN 02991280 7 O000t0 ‘ 
8 P OMM EN ~X OP 10 -SCRIPTOR re | Q 
aif FMT&: FORMAT OR NAMELIST. OR oO) Cato 02991320 T 000080 1@ 
s@} LySh o> ACE TOENTAL ENTRY. DESC, OR: ) . 02991340 7 O000t0 ia 
soe | ae s : 
REAL FORTERR = 24, 02991500 r 000080 le 
LISX = "4» 02991520 T O000!%0 i 
= 3s 0299 QO 000089 ia 
DK ADR = 43 . 02991560 7 G000I0 ry 
ARRAY FMTA. = 7208), FPB 5 3C*) 5 02991580 7 CO0DtO | 3 @ 
NAME LX am Bp : Se 099 T0000 as 


REAL 


NAME 
REAL 


e® © 0@8@6@e@866e@6h—C<CihmhC<—C HMC‘ CO Ce 


INTEGER 


= basoieec 

ALGOLWRITE = 4; 02991640 | @ 
SELECT 5 | | 0 00008 “ 
LSTRN® 498 Benes re 02991680 0000%0 F 
ARRAYSTUFF & ya, 91720 T O000t0 . A 
NAMEV p ar eCTETT: 000010 : 

PRTBASE ~ 02991760 7 @] 


* 

1 23Le], 7 02991800 y. 000080 : " 
one | 02991880 T 00000 = @ 

Ge tices Ehge : 02991840 7 O0008o _ 51 

> % FIRST BUFFER POSITION 02991860 7 000080 5 
» % ARGUMENTS 02991880 7 000080 “1 @ 

» & TRUE FOR SERIAL I/0 02991900  oa00tg 5 
Sy he 07 .9000%0. | {@ 

/ es oy. -00008%C.... ee 
@ eo 


W2 » & 02991980 T 000030 
NECI 3 % NEXT FORMAT CHAR LOCATION 02992000 rt 000080 ® 
LN R Wh . UNV 029920 O000%0 
1 DHe2 7 » & ERTED Nu# 02992040 7. 000040 
2 DH 3 se, a &% MBER 02992060 tT . 000080 
3 SW. Z ; D _ O02992080 HOOH2H 
4 WT . » & WIOTR 02992100 FY Ona0d0%O 
5 Ti » & eee etee T 000080 
6 D DEC# a9 : 
? OT % IMaL P= 02992160. 
, D1 & : Law ; Canparee 
9 ; : : fs ; c 9.6 aka : 
te 03 2 & i) 05992520 T Q0000%0 
ui ZERQS » & TRAILING ZEROES 02992240 fT 000030 


— SHFT -~ ® INTEGER PART OF SHIFT 02992280 o000!n. 
ee CODE | » % EDITING FUNCTION 02992300 Qo0dtO 
ps ny : SP : : . REDUNDANT PD ON a as 92 ‘ 0000-40 
4 NCR » % CURRENT BUFFER POSITYON 02992340 T 000080 
k LCR » % BUFFER SIZE IN CHARACTERS 02992360 7 000030 

LR 7 HAR ROM ORM y : 0299 9 oFeVoveu fa 

ie BOOLEAN DONE TOG 2% RETURN AFTER WRITE 02992400 7 0000%0 
i San » % SIGN 02992420 000010. 
F 5 y ALLE PRIS RO O295e4aso HO0O36 

pa DTOa »% DOUBLE PRECISION TOG 02992460 T O000t0 
ps CTUG 3% COMPLEX NUMBER TOG 02992480 T 0000!0 
' D A 0 : j aes 02992509 0.90.04 
| INTEGV Z1ts- 02992520 T 0000!0 


~OBLV 


ETYPE 
OTYPE 


LTYPE. 
ELMT¥P 


S#s Geren se 000040 
€ Ad fo 6 Oe a 
3H, 02992580 000030 
4H» peveesoe 000020 
ft _ 029926. 0 0.0.0.0 0) 
Gis : | 02992640 F d0QotO 
LIST YPE . taaraies oe 02992660 OOcOoO 


Hu 


62 


Vata vocumentssinc. 


ajuniu 


a 
++ a4 


SDBL! () 09480 7 001s 


LISTYPE,[4484] = CMPLXV)#> 02992700 T O000%0 


= ¢ 
= Ele tees (C3881 )a 02992720 0000%0 
= l He 0) OO QO 
ws £33%15)4#3 0 02992760 7 0000806 
@ ERTNsEs0Ce ToL? AS Ts COMM» NM 1aNM2sFMERRS ‘ 02992780 900010 
9 CoM TART “§ | ‘RATIC a ( - 
SUBROUTINE CKPB 02992820 
@ | BEGIN COMMENT INITIALIZE FILE AND ACQUIRE RECORD SIZE; 02992840. 
LCR « 8X(B8SIZe « PCMKS»FLGsDKADR? 0» desFILX*#ALGOLWRITE))3 ; 
lf RONTRSERN ROCCCTICFIB0G),C8t4))01 OR Tix? OR Ti#12) AND FPBCFIG(4) 02992880 T 
Cae: (13811963) 04385) <20) 04754794) THEN 02992885 


IF BSIZE GEG 17 THEN BEGIN LCR t® 1323 BSIZE t= 47 END 02992900 


6 IF PRNTR ANDO BSIZE347 THEN LCR*120 , 02992920 
er BUFF 1=CIF TL t= PRNTR THEN TPAR ELSE #FILX),633215)3 02992960 
; IF (CNOT TL) OR RRNTRgC4631)) THEN | 02993020 


T 
T 
T 002480 
T 


“STREAMCP2 © (ASIZES1) £3686)» Wir ar ae ; 02993040 
P3¢T1, Lag MhaeGal det 5P+QUFED: 2 = 02993060 002670 
BEGIN. OF + P43}. OS. ¢ B LIT m0 =: 02993080 O02R8 
S] ¢ P4s 02993100 7 002983 


Pe(DS « 32 WOSS DS ¢ 32 wWwOS)3 saan tr TY 003040 


OS ¢ P3 WHS; 2299 nae 
—DS_¢ pi "02993360 7 00313 
02993200 T 


seeded 
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f * a a 5 2 a a = Ths 3 3 


SUBROUTINE PRNT3 
BEGIN COMMENT 


rn A Ba IN 


GENERATE A CALL FOR CAR, CONT, AND FOR OUTPUTS 


“BEGINS 


BEGIN SI e¢P2s D1 ¢« LOC Pls O1 *#DI + 73 DS eCHRS 
OI.« P23 ODS ¢ LIT ™ "SENDS 


If (D2 *« NCR) > 9 THEN D2 + 163 
CTF NOT PRNTR, C4601] THEN ‘aAiABet ASE ; 


: seeLgT” myop 


Fieli7j+Ftati7i= BSTZE} lF DONETOG THEN PCXIT) 3 
END ELSE BEGIN PCMKSsFLG»DKAUR»s os BSIZEsFILXsALGOLWRITE)3 
ON Q) rie NN 


CkKPB END 3. 


-END PRNT} a 
PARA WE: rERS FOR LIST CONTROL 
BOOLEAN ATOG*TWDTS 
ARRAY ARL = LISTADRI*]3 
A NOX ; N NL ; 
eter RINLSTeSRT 
DEFINE. XTELI F THOT. THEN PC¥LARY CAND (33171336 IND, (40383sCOC) 
: Loe NOX 183 
SUBROUTINE GETNMLST? 
BEGIN 
F (NEE ¢ NLE = ; 
BEGIN 
NAMEV . FMTACNLL NLI+LI, (1213625 
TRRAYSTUFE + eNTAUNLIFNL TEI; [18130)3 
IF (T1 © FMTACNLII,¢7%411] ) « 4024 
THEN LISTADRe L[PRTBASELTI EL 
IF T1,C3981] THEN LISTAOR © CMEMELESX"(T1,0419733) 
- Peg ESE, LISTAOR ¢ 0M NCLISKS CTH, ehorayy a3 
NLT © NLT # FMTACNL IT De BUP6UF 
END3 - 
END GETNMLSTS 
suena TINE ETLISTS 


EGIN 
sits Je ATOG 
sei DLN THEN 


BEGIN 
WH1 ¢ NXTELMS 


02993240 7 
02993260 T 


02993300. 1 
02993320 T 
02993360 T 
02993360 T 
6 79 OO 


02993420 T 


: CRgs sate T 


* r + OQ 


027993480 T 


02993520 T 


02993620.T 
Gas7aok0 T 


Perper T 
02993700 t: 
1} i wat). 
02993740 T 
02993760 T 
Q299 3780 


03993800 T 


-.02993820 T 


a 903040. 


02993860 1 
02993880 1 


0 993900 


: 
0299 eS 


9903060 
02993980 T 
02994000 T 


02994040 7 
02994060 T 


02994100 7 


02994420 T 
02994; 40 

02994460 T 
02994180 T 


02994200 


02994220 T 

02994240 T 

02994260 
eryry) 


02994340 7 
02994360 T 
02994380 


0033140 
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OO on 
003344 
td ti 


AO 


003640 
0037!0 
UO -Bwa 
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QO4ote 


Q045!a 
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006512 
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006713 
Oo70ko 
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007733 
007:9%0 


007984 


00793814 
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007984 
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007084 
0080!0 
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Cae 


ae 
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009980 | 
“ O90o8 


O,Oury 
010494 
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BEGIN : 02994460 T 011733 
WH1 # NXTELMS 02994480 T O118%4 ®@ 
pH? + oF N29GASON Q 
1 EN 0 . 02994520 O123h2 
2 IF CINDX. *INDX + 1) 2 SIZE THEN. . 02994540 
3 . aes bears 1 nee oy om 
4 ARRAY STUFF ¢ Q3 02994580 012513 
: ATOG ¢ FALSE3 02994600 
O2994620 
7 a0 Ta . ATNESTS 
a ENDJ 
9 TO a "HEN ay an ae 5 : Oig7i>. 
ibe BEGIN % IMAGINARY PART UF COMPLEX 2098706 yt O12ato 
hy : WH1 « LISTADR(1]3 abana T 012889 
12] WH t Oo; ; C9: 7 e e ) 


CTOG @ FALSE. 


sey 02994760 7 043013 
GO TO RTNLSTS 


Ogb9e GO yO yaa he 


(5 a END : 99400 + Has 
he GETNMLST3 02994920 T o1aste 
| IF ENOLIST THEN GU TO RTNLST3 . 02994940 T 0133!0 
. RRA O THEN Ne99uaé 0 
a - BEGIN . “95900880 013581 
po ATOG ¢ TRUES . 02994900 013543 
1 * NE Leh R A 7 * “ys Se nee r) > NO ne i 
2 TWOT*NOT P(*(LISTADReMEM((4(LISTADR1) ¢{ 1084511) T0P)s P(OEL) 3 02994920 T Baers 
a GO TO SRT3 02994970 T O1a3ty 
02994980 
IF NOT PC*LISTADRe TOPs XCH* DEL) THEN LISTADREPC#LISTAOR) 3 029949865. T CET 
WHL © LISTAOR(O]S = 02995000 T ieee 
H@ « IF. DLN. THEN. LISTADRE1 SF 03 02995020 ; 


CTOG © CMPLX3 02995040 . ee 


T 
RTNLST? geet T Q453%1 
ND [Sle 295080 7 O1538 
SUBROUTINE NMSZ3 =: 02995300 + O153t2 
“BEGEND oe Car 029951420 FT 015480 
STREAM PLC LNAMEVI] SP 2¢0)3 4 : 02995140 F 015410. 


BEGIN 02995160. 015571 


SIT «P14 SI ¢ SI + 23 02995180 0155%4 
6CIF SC = " ™ THEN JUMP OUTS 02995200 01553 
SI ¢Sf + 13 TALLY * TALLY + 123 | 02995220. 7 015710 


PA eTALLYS- 02995240 T 045783 
Sk bh OU. DA SRO 


02995280 Oy5eary 
02995300 eer 
0299 Q 


NFCI « P3 
ENO NMSZi 


area | 2 05995340 7 015910 
NSTREAM(PLe(NAMEVOUPZeNFC rT» P3QUFFD> 02995360 T 015910 
BEG? Pee : 02995380 7 071604: 


“SI ¢ PLB $1 +51 + 23 DS “P2 CHRS 02995400 T 016082 


a 7 SS SS eS eS 
> © & 3 D> 5 & @& 


Pl ¢ ol} 02995420 T 016182 


NOs q Og é 


“BUFF @ PB. ca a ee 02995460 T pies 
End. cue Pore 2 Tig eo : 02995480 01623 
ae | FUNNY Zt “ve Cae 5 eee oe 3 ; : seoceene : 404 : 
BEGIN 02995520 7 016380 
SKP ¢ W * (0+64S5GN)3 ge 2300 T O163!0 

i p D pi : ie 046 
Sabese6o.7 016782 


ef 02995600 x o1er ta a 
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8 a 5 . 5 *, “Ky r 


SESS 5 a So Ft US 


7 Ae Amn rs 
Sp 2 8 Bs S&S & S a ey 8 ft 


END ‘nunconvent? 
5 


Ls bDS ¢ 2 LIT "0,"3 
PACDS © LIT " "24 


SUBROUTINE FINDES 
BEGIN 


IF DTGG_ THEN 
DOVBLE (TEN $ 


~ ELSE Thi ¢ TENTO] x WHYS 


EXP ew (COENHIC4213461EMHICLIRI LI 412%, angen 4.53 


Pec aT0G TEEN 


=F EXP 2 0 THEN DOUBLECTENCEXP)> TENCO9F+E XP) ,* 
SE _ 8) UB Os TEN= 


“WHY THEN 


xP 


N6 


“IF aes 2 TREN GO TO ERTNS 


EXP + EXP*13 


END FINDER 
SUBROUTINE: NUNCONVERTS 
: O 


IF oR > 0 THEN 


XP leafs 
§ “eo IF EXP 2 0° THEN “TENCEXP) ELSE 1/TENC PEXP 3 
WHI - ae TWEN GO TO CHEN) 


GleTENC ESI] sxete 


BEGIN 
OUR WHIP*WHPe TER 6)» N 
OWL © Wa DIV 4.03 
ENOs i 
oe on > rE ; 
BEGIN IF pTQG THEN 
BEGIN 
DOVE Le CW aWhH aD oO» N 
: TENE SIsTENE?? Jos oe ond owed 
| One + ow DIV 13 
ELSE OH © WH] DIV TENET? 
ENOs 


IF OTOG THEN 


IN 
DOUBLEC WH WH2» OHI» O» TENE 162» TENEG5 I> x» 


. Hr eevs 
DHS « WI DIV 13 
ENO 
ELSE DH3 ¢ WH) DIV 13 
EXP EXPetd nee 


BRO 


TiN 


IF DLN AND OT > 23 THEN 


ane sore ah ne e “133 DieoF “D2 ¢ ay D3 ry 


END ELSE IF DT>16 THEN 


PENT 


ENE 


224P wr 2 


eWlewe) 
W 


eW1. W; 


02995640 T 017030 e 
02995660 T 017082 

0 

02995700 T 047280 le 
029957¢0 T O172hy ay 
Hagon 7An O Re : 

02995760 T 01730 i; 
02995780 T 017380 ; 
02995800 ‘ 3 


Pggahegd 1 Oat. . 


eae ‘O478I2... had 
02995880 7 O483t2 hy 
02995900 T 018383 @ 
02995920 T OQO18Atd ' 
02995940 T O194t3 © : 
02995960 T 019982 |@ 
O299S5080' 020013-... 15 
02996000 1 0201382 1 
02996020 T 020381 ql 
02996060 T. 02042 — ie 
O2996ogo. ty casa . ie 
7996100. f) tC : 21 
ECIEE T aaosie “0 
02996140 T 020583 2 
. ie 24 
02996480 T 020984 e 
02996200 T O210te ee 
9 yo és. e' a t} : 
02996240 T QO211%14 e 
02996260 rt 021230 29 
02996280 T O2j2! _p 
02996300 7, O215ty ‘le 
02996320 T 021713 | 2 
W mR « .: q Ot 
02996360 T 021980 e 
02996380 T O222%2 3 
02996400 0 t 36 
02996420 7 O222% 3 37 e 
02996440 T 022381 38 
O2996u60. TO; { 39 
02996480 tT O229%4 ‘‘e 
02996500 T 0230! at 
02996520 023082 43 
02996540 T. O232%1 _ it e 
02996560 7 O233%e2 4 


02996580 7 023313. ‘9 
02996600 0234%0 “7 


02996620 023410 1 @ 

02996660 023613 iat ‘e 

02996680 1. O240%3 ae 
06. OOBAEa oe 51 


09996720 5 e 
02996740 i 
029946760 
0299¢ 6280: BS 
i” 2 96780. ro le 
@ « 
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a zy 5 * a ane: = Tk =. > 5 


D1eO0sb2eNT@8s O3¢83 
END ELSE 


gua sets —__ 
BEGIN IF OTQG THEN 
2 


JeTENLC T1969] sme ¢eeeWHieWH2) ELSE 
TENE Sere Ty cet ne said Ke 2 


oon @O@ FF WH 


po END RNOUFFS 
4 SUBROUTINE SCALES 
ha BEGIN I OTCIG THEN 
~ BEGIN: “IF T1200 Tangle 
oe THEN DOUBLECHHIONK HENETA IP TENCT1¢6938 xe eo Lo Mu) 
SE DOUBLE CWHys WHos TENE @T 4) 2 TENL O69" pfataWh sa Whod3 


IF WH) 2 TENCOTI THEN 


BEGIN 


xP _«¢ EXP + 13 
DOUBLECWHIsWH2s TEND EI s00/5¢oWHIe WH2 D5 


ae sy : gen 
PAD Hi« JF T1 2.0 TREN WHIxTENC TI) E£ WHIZ TENC@TLIS 
END SCALE3 
Zaerkeeetkeeteee S TAR T OF EDIT@CONTRUL Ake ake y 
SUBROUTIN ONVERTS 


BEGIN : ; 
DTOG t*® FALSES , Sep 

SGN eWHI L194 DE < 4 LY ps THEA WE «AB Wh Woe Ws nt & O03 
DH1 * DH2 + OH3 ¢ “ZEROS *EXP ¢ SKP « SHFT © D1 « D2 ¢ D3 ¢ O3 

GO TO P(CODR*DUP» ADD); 

r) n M R om. 

GO TO FMERR3 

GO TO FMERR? — 


GO TO DCs 
Go TO Is 


i ee 


0) 
COMMENT. LOGICEAL CONVERSIONS. 
If Ww >) THEN ag tabi st het 
SSeS wave a PPE: NFM) 216 
STREAM(P1 ¢® BUFFIP2. 35 WHieP 4 3= SKP» P4 tz WT)3 
iat t= Pls OL te DI + Pas 
5 = 


-P4 CHRA PL ote DIZ 


ENDS 


rr TU COMM 
I: COMMENT INTEGER CONVERSIONS 


Ar A! wh =) Fi PN M 


D+ 


HEN or 
Qe nSreseeMh ona) -& ROUND. OFF 


FINDE: 
IF —£XP < 0 THEN DT ¢ 03 ¢ 1 ELSE 


02996840 
eae anerhd 


O254ty 
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025720 
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9 iG . 
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026080 
AO 
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02996920 


02996960 
oo 


02997080 027640 


02997400 02770 
0299 qe 0 tq 
Og9orqao Y Oa7r7sy 
pa by 027840 
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02997220 T 028733 


029 Q 
02997260 
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Oaser ese O29aty 
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eT T O29784 
02997340 7 0297382 
05997 340 QO2971- 
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O298to 
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02997480 031070 
02997500 T 03102 
02997520 7 031110 


02997380 
02997400 


02997440 T 
02997460 T 
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02997560 T 031240 
02997580 T O312%2 
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02997620 7 031312 
02997640 O3%3t2 
02997680 T 031983 
02997700 7 032132 
02997720 7 O322h4_ 
02997740 7, 032213 
Ogsorres Y O32a3%2 
. Oe) Rf) : 0:32.31 3. 
eeeera06 T O324%4 
T 032433 


029978920 


97900 T. 
02997920 7 
02997940 


OO 04 


erase y 
02997880 T 
T 
T 
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4; G 8 * G 3 * a so n 5S TKS = Ik 5S = 
& ¢ ra 5 & oH S & oh = 5 & d 


@ 
ENUS 

] IF DT * SGN > NW THEN gO TO ASTS 
yW > 0 + al P¢ \ Lal N23 

STREAM(P1eOHP2 © DisP3 ¢ DHieP4 . "DaeP5 . DH2e 
e ae “ P6« DSH RT: @ DH3»P8 «- SGN PS ‘ SKP»P10 ¢ BUFFS 
BE CTN & Po ¢ £ 
Yd] 
r 


TE ¢ LIT me) 5 
SI ¢LQO¢ P3s 0S ¢ PQ DEC: 


Sj] «¢ 0 P23 DS « Pp DEC? 
SI « LOC P73 OS ¢ Pé DECI 
: “Pie prs 4 - 
che Bt od eS ‘ eee 
BUFF « P$ 
er | Go To cuMMs oo 
D MM 8 P ON 
eT : Et TEORMENT E CONVERSIONS — 
6 Make be OT0G + TRUES: 
. ee “DB: 
i IF WHi#0 AND WH2 = 0 THEN 
er BEGIN | 
WwW < (O+6+ SGN \ 
ee FUNNYZERO3 Gd TO COMM 
Or | a END ELSE 


“FINDES 


D 0 

T1 + EXP - oa RNDOFF3. 

Setos © : 
‘eh Te Lar YP 

NUMCONVERTS 

END: 
REAMC(P4 + O8P2 « SKP»P3 t SgheP4 ¢ O1-P5 © Die 
P6 ¢ D2sP7- + DH2sP8 « 03,P9 * DH3sP10 + COLND» 


ND ¢ : ’ #2) + PO} ? + ik had 

Pe « DIG OS © LIT "."3 

SI ¢ L@C P53 DS + P4 DECs 

SI _« LUC P/> _2 + P6 DEC3 

SI + LOC P93 DS + P& DEC 

P14cDs eEIT mys OS & ult "EN; 

OfDY « DL @ 43 pS « LIT ph" 

os ¢ LIT id " 3 

P1icOl ¢ OL = 13 DS ¢ LIT road 

SI] ¢ 1@ Plas OS + 2 DEC: 

Pye ols. eed 

PL3COL. * p23 81 * p2s Ste St + 43 


-ASTE TEE ne 

STREAMCPL «¢ ore. e uner WDE 
BEGIN ODL + P23.” ps * 

BUFF « P3 

COMM: 

END {CONVERTS 


PL + DI 


NE ILE IF NOT OF 
ib. DKA OR. «0 ENDS 


IF (SKP « W* 0 * 5 * SGN) < O THEN GO TO ASTS 


Puy ¢ CEXP * OeP12. « ABSCERP IP TI" © SHFTsP14 © ZEROS» P45 “BUFR 


OS « P13 CHR3 DS © LT *,%3 JUMP OUT TO X)8 


eee ow ok we me | 
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02998060 


02998400 
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§ VO 8.4 at) 
02998160 
02998180 


“onepanzo ) 
02998240, ‘ 


O79 OF 


02998280 
nee 2eaye 


f) 99 fF 


05998340 T 


02998360 
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02998400 
02998420 


02998480 
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T 


0348%0 
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¢ eee 
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T 
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OaeQgBRaOo 
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02999020 
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ooatee 
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O397%1 
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fi an a: om g SS BS 
& Ne 5 & &® 9 G & a oS : : 


IF FIRC5),043%81) THEN PCMKSs Oe 02F IL Xo Le SELECT DS 02999260 T 042682 
PRNTRe2xCFIB(5],041!2)40) 3 wee IFF FILE IS CLOSED» SETS PRNTR.[46%1J a1, 02999280 7 O429%e2 @ 

PRATR THEN STREAMCTPAR)S DSeS8LI7T" " 3 02999290 1 0 A 
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a90os700 1 0054! 
09005800 7. 005842 — 
09005900 T 006013. 
O¢G0046100 2066 
09006200 T QO06181 
09006300 T 006334 
O90C440 006 r 
09006700 T 006623 
09006800 T 006683 
ekekarar.vevara onag.. () 
09007000 T 0069%0 
090071390 T . 007033 
09007300 T 07534 
09007400-7 O077%2 
; ; 1tZEs..0078 OR DS 
09100000 T 0000%0 
ADDRESS = 00616 
L. OO0020 
09100200 + O000tO 
09100300 T 0000%0 
go0g0%0_ 
09100500 T d000%0 
09100600 TFT QQU0dtO 
() {) 8 
09100800 T Od000!0 
09100900 T O000fO 
O81 01000 tT  S000to 


Data Documents/Inc. 


. S * *, * * “an a am x = Th 3 g = 
a > & oS g > & os o x oo © : .3 


Lae 
Ne 


REAL BLOCKCOUNTER -@ 16% 
Ce _ BLOCRAOUTINE » ell Bar 
ARRAY. ARO : Pes 
pcetrEL: 
PLACEHULDER[*)3 
DEF IN MOVEWOROS 5 oN (OS+ 3: wOSS DS¢32WOS 3 DSeN WOS#3 
SUBROUTIN WAPR : 


_ BEGINISTRE 


CII 686 CACKED1 NeNeL »NLePCOUPD. (3636)/COPY)3 
 MOVEWORDSS a 

DIeAs MOVENORDS$ 

Dl+*a3 MUVEWORDSS 


S1eBs 
SI*cOPY; 
WN NAPROWS 3 


QUIITINSEBLO]IIa 8 
DitetTs S11sSi916s SKIP 2 $B5 


BEGIN oLseTis Dle=T ii SIltsS1*16s SKIP 2 SB} 
hE $8 THEN. ELSE. TALLYt=13 | 


END. {STREAMS fe Ne 

Hi £ : =S0\— 3hs foe —_ 
IF oi ¢ Ae cet Tiee* DL Lie (8210) THEN arrrre 262 COM) 
Nk ¢ (N ¢ N™1)915 


BEGIN IF “paletyOlsnet OR CoCBE ID eLetolANey 
THEN POIs (s5 22: 264, COM) s , 
, #0 THEN & meee 
FOR ler STEP 1 UNTIL N po 
STREAMCN, NIfPCOUP) 6f3686]5 SeelBll)j» De*CALlyI)3 


BEGIN 31 £34 eo) Le Sy [483 OleOs Dien +8 MOVEWORDS _ 
END? eae soc SBE : ENO 
TF NRO. THEN HORE SDR eee, 
POLISHC*E AIL) DUP» LOD, ty XCH» /e XCHs #2 XIT)S 


BLOCKCOUNTER ¢ BLOCKCOUNTER#13 

POLISHC(MKS» [PLACEHOLDERCP]]» Nei» 1% 1e Os BLOCKROUTINE)3 
ACKC NTER *&© BLOCKCOUN R+ 

POLISHCE KSe LCOPYCPI]> NeteotsetoteBLOCKROUT INE): 

COMMENT "REBUGE ae MATAYS ‘BY ROW PIVOTS a TRI@OIAGONAL FORMS 
BEGIN II ¢ (K2 ¢ f)* 13 Bla ¢ 03 
FOR Jel STEP 1 UNIT UL N pe 
BEGIN ARQ 1! QLISH(O) 

FOR Kel STEP. Un Arno) 
SPOLESHE EACH Ye q COCs AROWEDK1]s Xs» 703 
ne a? { e) Re eS 
TF POL Tart CAnOWid 1s SND» SSP» DUP)>BIG THEN 
POLISH(,BIGs #s Js Kee ©) ELSE PC DELI 


y a , If BIGSEPS THEN. POLISHCCS5S7) >. @6e COM)3% NEARLY SINGULAR 
Pp ae TR CPLACEMOLDERCI #2247 THEN SeAPROWS. © 
ie ee DAG © FO CARON © MEALII}00 I COC)S 


FOR in STEP 1 UNTIL N DO 
BEGIN POLISH(Q)3 
FUR Kel STEP 1 UNTIL IT 00 
ee ROUT SHCHLAEB IT, de COGs AROWEK) + X» @03 
wie ahaha ae 0 


en ARM ENT Ds «3 


OC,» +) ELSE 


09101100 
09101200 
O9190 ale 
09101400 
09101500 


-09101460- 


09101700 
09101800 
09101900 


"99102000. 
09102400 


N9102200 
09102300 
09102400 


0910 OU 


09102505 
09102510 


0e1n: 
09102520 
O9102525 


eke o 


09102535 
99102540 


0940 
09102600 
09102700 


09102900 


_ 99103000 


9916.31.00 
09103200 


09103300 
O910 6 


“09103500 


09103600 
09103700 
09103800 
09103900 


0910400 


- 99104100. 
09104200 


O01osa00 or. 


09104400 
epee 


: 09104700" 
09104800 


4 £04900 
09105000 
09105100 
09 oe 
09105300 


09165400 . 
09105500 | 


09105600 
0910570 
09105800 


O91o5900- 
09106000. 


4-4 


a 


+4 +4HAw4 


as has 4AM AHA tH AH 


ath 4 4k 


1 a 4. 


f4a4HaA4 


cs ae ogee 4 


000080 
000080 


000080 
000010 


DOOOLS 


0000:0 
Q000to 
QQ0Qg!3 


“ OOOS EO. 


000780 
0009%4 
oye H 


O012!0 


001693 
oo0171 


0018!4 


0019%4 


902083 
002110. 


o022t3 
O027T 


003333 
0035%3 
3. 8 

O042sy 
OO44 ig 
00 ile 
oos2ty 
005294 
0053t0 
00568 3 
00548*0 
0040 

0061382 
006383 
71) 6 3 §. 9 


006530 


0070%2 


007240 


 O076 


007781 
0079%0 


09106000 Y. O10z02 
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a cy Th * Th 3 3 


“REAL —~—~—SO&BLLUCK 


PULISH(10» CQOM)3 COMMENT RETURN COPY ARRAYS 
COMMENT INVERT LUWER TRIANGULAR MATRIX; 
LR had TEP N D 
BEGIN ‘TL © dels  OTAG #POLISHCCAROW. & eCACIII)» I, COC) 
OR OR. Jeb. STEP 1 UNTIL It po a 
BEGIN PO IHL OD: : { 
FUR KeJ STEP 1 UNTIL Il Dd 
UISHCh tage Za Cad J» COCs ie Xp m)5 


ENDI. a 
S AROWCT I” ee ‘1,0/01AG3 8 
SEND. Poe 
COMMENT INVERT UPPER TRIANGULAR MATRIX 
FOR TeN] STEP =31 UNTIL 14 OO 
B N + I+]3 ARROW © wf 4 i 
‘FOR ‘JeN STEP. EL UNTIL TT DO 
BEGIN Lig Jah POLISHCODs 


"POLISHC#LALS] ]¢ ve COce ARONEK]» Xe 
POLISHCAROQWKL UJ» CHSs. +5 CAROWC UJ] }s ©€)3 
ND NOs ate ta 
COMMENT MULTIPLY UPPER. AND LOWER: HALES ‘To PROB UCE INVERSE; 
se ee ae 1 UN PTL N4 DO 


"FOR. Jel STEP 1 UNTIL N 00 
BEGIN Bu (K2 ¢ J)SI THEN K2 ¢ l+13. POLISH(0O)3 
a ___f ane: 
"POLISH(#EALK]15 jee “COCs AROWEK)» X» +94 
IF l@d THEN POLISHCARGNEJ2 + +23 
29 it fiw id 
END ENDs 
COMMENT EXCHANGE rae ELEMENTS TO ABSOLVE ROW PIVOTINGS 
OR JN Ae on 
IF (Ll «. PLACEHOLDERT J]. 
FOR Ket STEP 1 UNTIL 
: i AROW + * At Bee de! im - * 
POLISHCAROW(I J» CAROWCJ])» DUP» LOD» CAROW(C TJ J» es «33 
ENDs 
POLISH » COM)3 COMMEN RE URN P ACE HO DER ARRAY 5 


END INVERTS | 


09106200 T 0107%4 
09106300 T 010733 
Q) Ob6u0 O 33 
09106500 7 010910 
O9106600' t ° OF¢ te 


09106800 
09106900 


09107400 


09107500 


tints 
011530 


012730 | 


Shea 


opera et 
09107800 T 0 


09108000 
09108400 
9 B 


09108300 


09108400 


OO1 08 6 O86 
09108600 
09108700 


QO9 REO 


09106900 T 
09109000 TF 


09109200 


09109300 
0 


09109800 
09109900 


START OF REL SEGMENT: DISK 


PamITY "LABEL WEDS 


s 
= 
ieee ana i ENTRY. FOR LIST 
ft Roe . DISK “ADDRESS ; 
“ee £ TANK DESCRIPTC R 
= INTRINSIC INTRINSIC DESCRIPTQR 
3 


& 
ALGOLREAD = 13, % NORMAL*STATE I/Q INTRINSIC 
T 4 | : 
LUSTYPE = 20» TELLS TYPE OF LIST ITEM 
HOLTOG ws 215 i FOR CHARACTER ee eran 
. s U BS 7 y POWERS*0F 3 N\ Se een 
REAL a FORTERR w 2A) % PORT RAN ERROR MESSAGE ROUTINE 


09.200 100 


09200300 T 
09200400 + 


09200500 
09200600 
09200700 


09800900 


09201000 
? Ge +fe 
09201200 
pee 


09201450" 
09201800 T 


014934 
0150!0 
()  * 

015440 
S158t2 

peri 
01465%3 


| ae 
_OV7O1o. 


Orisa 


cabacae: = 
T O00080 
000030 
oooato 
CodotO 
000010 
T ocd0ntO 
T Q00OtO 
000080 
T. 000010 
T Q00030 
T 
T 


0 © U 4 


0000!0 
(000010 


@ @ 
FIBC*)3 % FILE INFORMATION BLOCK 09201700 T o0000%0 e 
@ 09201800 T o0CotO 
BOOLEAN 0 ; N RA < Q Q 
~ GQMPLERTOG> ; FIRST. HALF OF COMPLEX NUMBER 09802000 T 0 le 
of OBL th LIST ELEMENT DOUBLE TYPE 09202100 % 000! ; 
z ie : Au ‘ Oosnr snn’: + a 
EXPONENT NEGATIVE FLAG 09202300 T o000%0 1@ 
@ GOTDIGIT» % TELLS IF CHARACTER SEEN ogaoz4v0 T goooto : 
. a A - R e 
® TRUE. FE "SCANNER MAY "READ A "RECORD “ogagaaeo. te 1@ 
@ & MANTISSA” NEGATIVE. FLAG 09202500 T OC ; 
: | Le vO earners b CONTROL ee 0.0: 0: Of orelavan Oe oe 
TWODIMTOG: & ON IF. ARRAY 1S THOnDIMENS TONAL 09202700 T OOcoIO ‘e 
@}: 7 09202800 T 00010 
i “BUFFr”~”*~*~”*SR:SCGURRENT BUFFER POSITION 09203000 t oo00%0 ice. WQ 
@ : s CONTAINS Last CHARACTER SCANNED 09203100 T O000TO = bs 
Ye ; MEER CMe f\ . : HO«eO 32700 tT. OOooito. eco 
% NUMBER OF DECIMAL PLACES 09203300 T. O00Q80 | "e 
e % CONTAINS EXPONENT 09203400 7 0000%0 2 
; ARR 4 ARR A a 09203500 000020 ne 
% ARRAY. SIZE. IF ARRAYTOG 09203600 y oOQ0ot0 8. 1@ 
or TYPES 4 TYPE OF LAST LIST ELEMENT o9203700 T oocoto = 
s : : : ON920 3800.7 ereleteu Fe! : : 

NAME ADDRESS» % HOLDS ADOURESS TO STURE NEXT DATUM 09203900 T oacato 2a 
Or LISTACK = ARRY} & HOLDS RESULT OF CLISX) 09204000 T 000080 ~3@ 
P aa , , to. | 2 
REAL NUMBER? % TEMPORARY NUMBER*HOLDER. 09204200: dcoDto .. 25 
@» NUMBERL >» NUMBERH ; % i NUMBER punt By FREEREAD, 09294205 T O000t9 bd ® 

8 ' : __ OOPSOA 200 a7sYetal a8 : : 2 
Bf LABEL “LISTSTART» 09204400 rt 000030 a 
:@F LISTEXIT» 09204500 T 0000%0 
: I 09204600 NN008O I" 
ese 092046700 T d000!0 eee id 
s@ 09204300 T 000010 — by® 
83) O9F0dnS0 TT O0061D ie 3 
09204860 T O000%0 
@F 09204900 T 000080 21@ 
7 D 0920500 oleloren we : 
al ERROR? 09805100 T O000tO " 
@» STRING? 09805200 T Goccto 1@ 
s STR 09905300 7 Q0008 
GETCOMMAs 09205400 T 0000%0 
@ LOGICAL» 09205500 T 0000t0 «|@ 
EXITS | 09205600 T 0000%0 | | cc 
re Eee Ee , ~ 09205700 T G00dT0 | aoa 
Ou SWITCH antst ae EXIT “WUMERTOALS STRING, NUMERICAL» Og205800 7 On00t0 8 ~—- os | @ 
. 7 LOG e NUMERICAL» NUMERICAL} 09205900 TF. dG00te ae 45 
09206000 tT 000080 
@ DEFINE INTEGERV 5 if, 09206100 T 000080 | 
STRINGV = 2H» = 09206200 O000to 
coe RERUN ER Ge ee 09206300 T Gocoto a. 
w! oe WOGIC ANY. eo es en 09206400 T O0CO0TO fey @ 
BL ee 1h, ee ee x 09206500 000046 on 51 
i CONF = 683 09206600 T 00000 
@} , 09206700 T 0000t0 «| @ 
Pt DEFINE KIND CRIBT ADCO 38: ; 09206800 T 0000%0 7 6 
wee eae WTA = CLESTYRE, aba 9O0'T OOOOFO = 7 fs e 
alt LIST OOOOHO ee is 
: T.-Q9o00080 is al 
@ 


piped 


& 
BASEF = [18t15]#, 09207200 T 000080 
100 = (#FILX) #3 09207300 T 0000%0 e 
O97 orere a 
SUBROUTINE CHECKPRESENGES- 09807500 T 
2 BEGIN COMMENT GETS NEXT BUFFER FROM ALGOLREADS | 09207600 1 
? ' MKS i DLREADI@SF OQ 
‘ BUFF t= 10G«(33%15]3 09207800 
5 END CHECKPRESENCES 
6 
The 
8 
9 


RDER NEXT. RECORD. READ TROW MEDIUMS 


0007 ty 
0008 ry 
Y. ma £ 


09208400 
09208700 


IF DONE THEN PCXIT)3 
IF ToD«C27 #42 THEN PCXITDS 


09209300 - 001210 
| 09209300 0012%0 
Kal 8. 09209400 T 001233 
ELSE PCCARRYCINDEXI3 95. a aga 09209500 T 0015!%0 ~ 
pee! te biieded aoe : eS 09209600 “OgtS ES 


BEGIN COMMENT GET DESCRIPTOR POINTING INTO AN ARRAY3 
IF eer eet: THEN 


09209800 
Sr oer 


001642 
001632 
00 3 


eee LISTELEMENTS 
l AMENT GETS ADDRESS 

ee OTDDLES CERTAIN TUGGLES AS NREUIREDS 
LISTSTART! 
ARRAY TO! 
BEGIN ADDRESS | 8 NEXT 09210400 

If CINDEX % 3 INDEX*DOBLTOG+1)2SI1ZE THEN 09210500 
ARRAY STUF e, ARRAY TOGe OMP TOG*O 3 09 ' ) 
ONS hi LISTEXITS oes eee eee 09210700 + O024t0 
BF i ee O9210600 T' GORat2 
002433 


09210300 T O017%0 
09210200 T OO17%0 . 


Data Documents/inc. 


g a a « * % 6 Oe SS eS eS eS ee eS 
a oS & é os & N So ® ¢ 


~CUMPLEXTOG 


IFC PLE | 
BEGIN ADDRESS 32 [LISTAOR(41]3 
GQ TO LISTEXITS 


t= Q3 


09211000 
09211100 
09 


ENDS 0 
P(O)S. LISTADR 9% CLISX]s 002733 
COMPLERTOGS (TYPESDATATYPE )=CONPLEXY: oozar3 


09211300 . 
09211310 


DBLTOG+TYPESDOUBLEY 3 


crREEES 
003332 


N 09211500 
ARRAYTUGe43 ; 09211600 
SIT ZE+CINDEX*ARRAYSTUFF eBASEF )+ARR 


FWOO THTOGeNOT a ceDsTeP NT “PODEL). ; " oe 09241800 T 0039%0 


80 To LISTSTARTS 09211900 T O0dOt2 

ENDJ 2 : 06242000: Noaiio 
ADDRESS ¢ CLISTADRLOIIS PCDEL)3 09212100 T O041tO 
LISTEXIT3 09212150 T O042%0 


Q9 2.30 


‘END GET NEXT LIST ELEMENTS 09212400 7 
Pe eee re eee ee Rr ee 09232500 T 
SUBROUTIN Frame Eee ee en ena AER i oa 
BEGIN COMMENT GENERAL PURPOSE SCANNER @" CHARACTER aT A TIME, 09212700 T 
PURLOINED FRUM BASICINPUT ROUTINE By WWFA3 09212800 T 00430 
NOK LJ aeiy UO AD) 


STREAMC Tisai HUFF » 092143000 T 
cee ae ~— ey. bap tsi late psize ELSE. beak STRINGTOG)} hha eet in 
Be ee GI STs ST NGT): B60 Tt OF BL ANE a : “ee 090843000. : 


OEBLANKE NC] 


END “scamens * 


x 


END STREAMS 
BSIZE t= BolZE=P¢xcH)3 
3 = PO 


COMMENT BLANKS SIGNIFICANT WITHIN STRINGS3 


GNC8 Ae pe Clean DiF=LOC Is DSteLIT "On; 
0B LeHi LR is sun 


a UED ATE Seen aet en COUNT 
J at PO hk & 


IF GOTDIGIT THEN GHAR®™s" 
ELSE IF READREG THEN GO LOOK 


ELSE. eo E8UK x 


SUBROUT INE LOGIEALCUNPARE 3 
BEGIN COMMENT COMPARES LOGICAL To eTRUE oar eTRUcaeTReveles OR 


FALSE o> FALLS os FAL oa ek Aer ek , 
Se error e Gareee LOB YGOURTER.E-WUMaER) 3 
oe | OBRGTNE EO? | : : 
¢L OC NUMBER’ «3 ple _oc. NLeD 
P IF c2 ScaDC THEN [F SC3",." THEN TALLY¢13 C+TALLY 3 
END 3 
i <1. om ; 
: END OF LOGICAL COMPARE 3 
g ; AROUTING SCAN 3. ——— 
20 f -SCNRE BEGIN SCANNER 3 
2 OP IF CHAR3"/" THEN 
8 PL BEGIN READRECeO | a 
ee ae WHILE CHAR#"=" AND BSIZE>0 DO SCANNERS READRECey 3 
S ‘a 2. 4 ‘AND eoTorerT THEN CHARE > ELSE GO Scnr 3 
B3] END: wed 
P “END OF SCAN 3 
e a 
SUBROUTINE QUILONUMBER 3 
ale BEGIN COMMENT BUILDS DELPREC NUMBER PE RPE NS NUROE ED ; 
°: oP UNDNB EDs MUNRE RNY 3 7 , 
; BEGIN | 
COUNTERENUMBEREO 3 . 
—__9O BEGIN COUNTER+CUUNTER+ 43 NUN SERENUMBER* O*CHARS SCAN END 
~ UNTIL -CHAR?9 OR COUNTERSL1 3” ae 
®  DECADES*DECADES*+COUNTER 3 
: JF DBLTOG THEN PCOsPOTLOCOUN’ ao Mt, 0» Ni Ma Repl o 
ELSE PCPORPCGUNTERT. <,1UNDER. 3 3 
 ] END 3 
: : +P ( NUMBERH»& i 
Peres ENG OF BUILONUMBER V 
en - SE: 
Heri wunk REA SUBROUTINE ALFA Go 
: BEGIN | 
eo} STREAM(CHAREQeQ) 3 . 
P : N , ; 
a ST*LOC CHARS SIeSI+7s IF SCEALPHA THEN TALLY*1# CHAR*TALLY 
dal eo eer ee Fda | 7 
e 


09213300 
09213400 


OZ OO 


(09243600 
09213700 


09913200. 


09213900 
09214000 


09214200 
09414250 
Og he 


09214300. 


Roeesee 


etrer Ta 
09214400 


00074408" 


09214410 
09214415 
09214446 
0921444625 


09244430 
ges Seti 


09214440 
09214445 


09214455 
09214460 


09214470 
09214475 


09214480 


09214485 
092144687 © 


Oe pele On 
09214495 
09214500 
Qg “ao 


09214510 | 
Pop oe 


EPYOCEE 


09214530 


09214546 
09214545 


09214546 
: Weaee 


09214550 
09214555 
09244569 


~ 09814565 
(09214570 


OQea048 


Gani aa7? 
09214579 
Og 458 


—O9Rsa58y To 


44 


Se ee ee ee ee 


005030 
0050%0 


005482 


005483 


006034 


O0esta 


006330 
906340 


006310 


0066t0 
OOGA qs 
0067%2 
006924 


007030 
OO708, 


0071!0 
007280 


O07 Kato 


Oo7aty 


Oosots . 


008083 


0094390 
Q095!'3 
00968 
QO9784 
oo7ve 
QOO97 to 
009880 


Vata vocuments/inc, 


ei a g 2 5 5 ° a x Tk = Th 3 3 = Fi 


END OF ALFA 3 


BRO REEREANS 
BEGIN COMMENT READS AND STORES NEXT. DATUMs DOING APPROPRIATE 
~ CONVERSTONS, TYPE. OF: SCAN IS. OEPENDENT ON TYPE OF 
LTEM OPERATES INDIFFEREN ON 4 ARIE 0 
NUMERICAL FORMATS; 
GOTDIGIT t= STRINGTOG ** FALSE; 
OUNTEReE e¢ESTGNeNUMB ¢ BERHeNUMBEReDECADESe¢Q 2 
SCAN} IF. CHARS." THEN: tue To EXITS 
IF CHARRS THEN 
me 
BEGIN 
e SCAN UNTIL NOT ALFA 3 
HAR" ial 
BEGIN 
(O00 BEGIN DO Scan: UNTIL CHAR>9 END UNTIL CHARS5B3 
HARE)" THEN 0: ERAGR} SCAN 


END 3 
IF CHARS"=" TREN 
BEGIN 
SCANS IF NOTCCHARS"R® OR CHARS"I®) THEN GO ERRORS 
SCAN 3 
NO. 3 
IF CHARZ"2" TREN GO ERRORS 
ENO 3 
DONE eC KARE eh | HEN READ 
IF CHAR. = "" THEN GO TO STRING; 
IF CHARS" x" THEN GO GETCOMMA ; 
OTD tz cael 
GO TO SWISHCTYPE); 
pakear carey 


SCAN 3 


IF CHAR? 9. THEN GO TO DECIMALS 
BUTLONUNBER , 
9 abe i) 
IF CHAR="," THEN 
BEGIN SCAN; 
PASTPOITS 


BUILONUMBER 5 


END 3. 
‘HARS"S " CLA HARSTtE” fk HARS"h* a h pene 
ATi: BEGIN SCAN , 
IF CESIGN & CHARS"=") OR. CHARS"+" OR Chane ee THEN OCANS 
t= CHAR)>9 THEN GO TQ ROR AN 
WHILE GHARSS 00. re 2 
BEGIN Eo ba 1OXE +CHARS SCAN ENDS 
ENDS 
F_ABS(NUMGER¢E*DE ADES)>69 HEN GUO ERROR 
PCNUMBERL*NUMBERH) 3° ere ee 
“YF NUMBERZO THEN. ; amet : 
Tess TF UDBLT OG TREN PCPOTDES9+ABS CNUMBER DJs PD ABS CNUMBER) J» 


IF NUMBER<O THEN “PCOLD) ELSE PCDLM)) 
ELSE PCPOTC ABS (NUMBER ) J] IF NUMBER<O THEN P(/) ELSE PCm)) 3 


a LY ce eet 
iF DeLToa THEN PCCADORESS3»ST 0» ( ADORESS(1]14STD) 
z F ELSE BEGIN | 
fens OR aes ; wey ie fol Awe ld Lo LADDRES Sa). 3 rue PEE OP Bats ibe stein aes i 


09214589 
0921459] 
ene 

09214700 
09214800 
09214900 
09215000 
09215100 
O09 O00 


09215300 


open 3 30 


09215320 


09219325. 
09 0 


09215335 T 
09215340 


(} © 
09215350 
09215355 
09245360 
09215365 
O9g{5970 
OE* 
09215380 
09215385 
0 Od 


(09815405 


09219410 


09215600 
eee 


09218900. 
09216000° 


09 biAO0 
09216200 
092163090 


O9 0 0 


09216500 | 


0921468900 
09 AQND 
09217000 
09217100 


O98 ore 


09217300 


09217400 
OORy 7500 
09217600 
09217700 


O09 ROO 


09217900° 


pyeeoee 


ehe 
09216050 
09218100 


09218500 


09218600 
OO 2ZIBG18 | 


~4 


ee eo ee | 


i 


010384 
0101%2 
01018 

010240 


010210 


~ O12 FO 


010270 
01020 


01070 


9 


FALED 
011240 
Ae 


Bitete 


014720, 


Vee oka 
012310 
01230 
01232 

Q1l24%4 
01270 
1 eR 8H 


012850 


0130%0 


013340 


OV9aS 
() ; 


AAHas 


a4 


7 


a 


Hasty: 


oyeerk 


6 
014982 
@ 0 


O15430 
015240 
215 at f 
0154%3 
015730 


036570 


016644 
CJ Ad 
O171%4 
017124 
01748 


047333 


OL7Faty 
U 580 
017881 
0180%2 


018520 


O1erty 


O14ata 


Data Documents/inc. 


a u * 0 2 4 7 y a Aa. nS eS eS Tks 3 RY x 


IF TYPESINTEGERV THEN 09218620 0188!2 
BEGIN | 09218625 018984 

09218035 ' 

(09218640 1 

? “¥ ‘2, of 

09218650 

09218700 

09218800 

09248900 

09219000 | 
19 ae 
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TALL3S SICPOs SleSl+es PO*SIS SleLOC P5s% 
Pects#P72 GO TO REPS: .60 ' 


Rarre 


REPLACECHRs SI*LOC P53% 
END3S | 
XT3t SyeSy-13)33 


P2CO3CIF 2 -SCaOC THENZ 
“BEGIN, SEeegen goo TO. TALLAS. GO. TQ. TaLLas GO. ‘To REP43 
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013640 


A eA 


014110 
014382 
() 


09720600 
Gere0roe 


WRITBACK ¢ Fuses 
Das 32 BCOUNT 


tS 


ABBA 


BTSERDORESSS. 09720900. 01463 
$ SET OMIT =. NOT tabetha . . . 09720904 ak 


S 8 8 


09721100 
pore) ley 
SUBROUTINE SEEKS we %THIS FINDS AND/OR. READS BLOCKS 09721300. mt AID 
; f BEGIN — ee 09721400 T 015710 
F CDAS « RCOUNT DIV NUMREC) = BCOQUNT THEN 09721500 015730. 
BEGIN 09721510 T 0159%2 

T 


$ SET OMIT = NOT SHAREDISK 09721519 016080 
GO SEEKR 09721570 016040 


Serie: (CF) ss TIP3 
IF NOTCSERIAL) THEN BCOUNT 


SAVE BUFF ADDRESS 
t= MEMCBUFTOP INX NOT 293 


ae ENDS. ae 09721580 To 
SEI THEN 09721600. 

’ BEGIN Cue 09791700. ‘O14 “s 
IF NOT HOWOPEN THEN 09721800 016212 
BEGIN *NOT INPUT 09721900 016383 
Pe ees acento EE ae — 1F_ RCO UTR HE R ts R peal Rae Tere etter ee 09 000 16 
is IF NUMREC > 1 THEN 09722100' rf Q167?l2 

BEGIN. BBLOCKED ourruT 1 016882 
: oe NUMBUF OB js 4 ONLY 01691022 ee. 
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$ SET OM]T 


on 


ad 


$ POP Om]T 
$ OM 


$ SET OMIT 


FLOTE: 


$ SET OM 


— SEEBRTING: 


WRITBACK 8% CWOROSLEFT<BUFFSIZE)3 


END; 


IF NORBU” 2 1. THEN 


ale 


MUMBO: ae BUEERUMT 


ode “CDASSCOUNT) AND «was>ecou y 


A OP eg CEN MAL fa 


DAS #$= CUUNT + 13 
ts eee D1V NUMREC) + NUMBUF = 


IF NOT DONE THEN WAITIOS 


— ae PRESENT: THEN 


NA EEL) 


1s 


ABUFFER 


BLOCK IS PRESENT 


iy ae rs Ny 


THEN “MOVEREC ELSE SETPRESENTSBITS 
IF DAS * NUMREC § mee 


H “N I ge r) 


ae = NtiMe 


ENQ EUSE 


PEN OR NUM IS 


NOT. SHAREDISK | 


THEN BEGIN 


IF NUMBUF = 1. THEN. 


AD 
CLA 


Oe ENG” UNTIL (OAS te DAs + rv > “COUNTS 
ra ‘NOT WOWOPEN THEN WAITIOS . 


&MUST BE RANOOM 


%& INPUT OR BLOCKED. OR LOCK 


% JUST READ DUNT TRY TO FIND 
BEGIN IF NOT DONE THEN 


WAITIOS 
REED; 
. * \ el) AS. 
END 
ELSE BEGIN 
WA i= P N NUM p 

2 QQ : SF INO BLOCK I 

IF hemrouocets ‘INK NOT 2 


GO FLOTES 


NOT SHAREDISK 


NOT SHAREDISK 


WOT SHAREDISK 


& 


REEUS 


IF NOT DONE THEN. 


IF CODE < 2 


THEN. BEGIN 
IF NRITBACK THEN 


area 


XMAKE PRESENT IN CORE 


ZREAD OR 
WR 


hs t= RCOUNT DIV NUMRECS 
, SE ROTATEBUF; 
Hoes MENETIP INX. NOT 2) 4. DAS 


Hea soe eta) 
a DAS 


09723300 ° 


99723700 


09722400 T O0171%2 
09722500 T 0175%2 
4 


09722700 017530 


: 
09722800 T 017780 


“O97 22900 0479 


09723000 
09723100 


09 ore 


09723400 
75.00. 


09723600 


Og AOO 


og72ae00 T 920740 
tT 


09724000 T 
Oo7 3% : 

09724200 1 021683 
09724300 T 022010 


Saeed 


09724409 T O222aty 
ae reen ey 7 (022211 
O97 2 O 

09724600 T O223%4 
09724700 T 022433 


9724709 TF 022682. 


09724750 T O226te 
Car gZa760 T G2evie 
* eo J FL). : Cj 
09724780 T og 
o9724a0d Y 023241 


ogtasoco + 023612 
t 


09725100 T 023743 
sheog.. O274a0t 
TIEEC T 024023 
09725111 T 024333 
O09 ¢ 3 


09725300 T 024113 
09725309 T 024330 
09725390 O24380 
09725400 T 024610 
09725500 T O0247%0 
09725549 7 O2473 
09725600 Y O24a7%4 
09726700 T O248%4 
S000 7 . 02498 
09725900 
09726000 
09726400 T_ 
09726200 T . 
09726300 T 
09726400 T 


025410 
“Baste 


T 
T 
T 

09726500 T 025913 
09726600 T 025943 
09726700 Tt 02593 
09726800 T 025913 
09726900 T 025913 
09727000 T O2eety . 
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LASTOONE ¢ FALSE 
IF COVE = @ THEN PCXIT)4 
ND q 
Suwed =. 8 T A. R t YEE HERE YE oo SKERS eer 
STAMTI MP a GA eos, aa Sg | 


% PREVENT SERIALIO OVERWRITE 


FIR ts ew ites ® (NOT 2 INX DLO 
IF NOT Q1SK THEN 
BEGIN 


"Fre + ABSCODE)) 
: hs ph doen 


aa0e $= 1; 


RCW 33 OLOC ts NUMWDS te O3 
P(LELOCI* OUP» Oe xcCh 
Go 1a BOLTONONDSRDS 
ENDS < 

e a ae 

$ SET OMIT = NOT SHAREDISK 

IF CODE. c1411- THEN | 

. A a ! 


$ SET OMIT = NOT” ‘SWAREDISK 
ENDR 


BEGIN “tie Lec Sg WHEN WERNCAT II 
IF sor OPENIO THEN IF HOWOPEN THEN TERMC34#REVERSE)3 

~@0 cOFSETOR: WRITES BLUCKTIMMEDIATE*NO. ROTATION 
ENO} wk eee ace 

OPEN > 1. Te T Mi 31. ‘OSE 
CDOE = 2 THEN 

BEGIN ROGUNT @ TF KEYs0 THEN O ELSE PeKEY a0 18 OseLOD)) = 43 

RCOUA 2 SUB 
ae corseTeK ELSE EEKS 2 at SEER VALIO RECS 


SME 4 = COnED: # HUNOPEN THEN ® TERM CRROPERD? 
IF SERIAL THEN % PROCESS SERIAL FILE 


Te SPEND THEN GO SERTALIO; | 
Set ited OR cmGOUNT>LSvEUD THEN GO EOF SETCKs 


 MOVEREC?. jee 
IF REVERSE THEN GO READREV: 
IF CODE THEN IF RCOUNT > TOTREC THEN TOTREC %® RCOQUNT; 
HE. (WORDS EFT te #PCDUP) = NUMWDS) S_ 
Li Joe A ath oy 


a cone: THEN WRIT ELSE sete = ce 
UF COaAS (8 BCOUNT. +. wuMe UF). * NG MRE S LSUE 
BEGIN *READ AHEAD TO KEEP 
SBUFFERS READY 


RCOUNT 1% #PC(OUP) + 13 
IF FALSE THEN B THIS CODE EXECUTED ONLY FOR TAPE 
RS Tep 1 


UP) © NUMWDS) s O THEN 
seoae shock 18 EXHAUSTED 


PCOUNYT «© NilMB NUMRE 


09727100 
eee 
Q9 

09727400 
09727500 
OS OP AUD 


09727700 
pelea se 


709728000" 
09726100. 


O97 2B 200 
09728300 
09728400 


HHH AAHa HH 


0266314 
026823 


fe 
 Oa7ore 
O2rot2 
neead 


Q275%1 
027683 
, 


“Oa7ett 
on7et4 


O9Anos. 


“O2B110. 


09728600 T Oz8att 
09728700 T 9 


CTO}: 


dcvsande 
09728815 
AB20 


opraseaa 


09726690 T 


@arsees0 
09728960 


09729000 T 
09729050 


2 


06759500 


pet Acting 
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09729800 r 


09729600 T 


09729800. 


09729900 


097301300 T 


09730200 


097304007 


09730500 


029054 


029084 
Opa Tes 


029440 
029723 
0 


0303%2 


G208 FO 


04.1.6 
js07is 
0308%2 
0) 


‘O317!2 


031910 
g O20 
032034 
aeeels 


CErTTED 
033012 


RECT L 


033633 
03408 


eer aoe eg se  aeeae 
O97 30800" 


09730900. 


09731000 
09731100 
097 00 
09731300 


GoFasedo 


09731600 
09731700 


“4-4 ies 4a 


0350%4 
035033 
0 ime 
O353%4 
te 


0357 0 


035930 


09731900 Tf oa5et8 


o9732ccd 
OO7 32 
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SERTALIO# 
2  ReoU 


BEGIN REEDS COUNT ¢ DAS 
END ELSE ROTATEBUF3 
) [\ ET TTT me = ry 


ENE oe 


poncas ue 
IF KEY. 4.0 THEN. PCRCUUNT»KEYsDIB 09 1SD)3 
PCO»RTNIS 


ND R A beac a LY 


ooe AND LASTOONE) 23 
TF OR COUNT «L Si tie DB L Sup HEN GO 60 
IF T THEN WORDSLEFT ¢ *PCOLP) * NUMWDS ELSE 
lF eee $0 THEN ; 


RR 
oS LESS WE FORGIT 
ie OR USE NEXT BUFFER 


BCOUNT as *P (DUP) + 13 
aTRE 


TF cope THEN TOtRES * RCOUNT ELSE 
BEGIN. CODE*323 °° GO SIQEODs END; 


Bag 


; : MV Eo 
SIOEQD! IF CWORDSLEFT 33 *P(DUP) - NUMWDS) $0 THEN 
IF cODE THEN WROTE LAST RECORD 

BLOCK 


09732200 T 0366:2 
09732300 T os6941 
ee O° WY A WO Oe @ 
09732500 T O373h0 
097392600 7. 03733 
09732800 T 037530 
09732900 T QO379%0 
0.0.0 F_— OA79% 
(09733100 T 0379%2 
09733200 7 | yee 


09733400 0386:3 
09733500 038982 
> 6 y 


09734000 039710 
09734100 0398!14 
San 09734200 T 03983 
09734300. 
09734400 | 
ene —rwaaBOo 
09734600 
09734700 


0403°0 
0405*0 


t 
T 
09734900 T 0406%4 
06733000 T O409!t0 
Q B00 Obto 
09725200 0412806 
09735300 T O414i2 
09735400 0) $ 


JUFIXNUMREC s TOTRECG THEN 09735500 T. 041553 
BREAD AHEAD TOO 09735600 7 041982 


CUUNT $= DAS3 
ND 


count 1a -#P (OUP) 
SE : 


OCK NOW 


: ne’ aa Saas 
MRT TE Oe eB WRITE IN TIMEe ge 09736100. 042584 
+ 


097345700 i OAZ OO 
09735800 04222 
09735900 042480 


09736200 T O42780 


09736300 +: 9% 0 


ELSE Te Looe TEN “aT TRUES %NOT FULL BLK 09736400 


LASTOONE t= NOT CODE3 


BIALT Ct: & ENG OI 
23% RANDOM AND RANDOM IO START AE 


RCQUNT t= (IF KEY = 0 THEN O ELSE PCKEYsDIB O*LQOD)) = 
‘i ) 2 


$ SET OMIT = NOT SHAREDISK 
IF (DAS « RCOUNT DIV NUMREC) # BCOUNT THEN 


LF _(NUMREC # CUDE) THEN SEEK ELSE BCOUNT ¢ DAS3 


09736500 


09736700 aTTLE 
09736800 7 O442te2 
09736900 T 04 : 
09737000 Ouagt 


13 09737100 Ou4d4ty 


O45080 


_ORS7I2 — 
09737549 Oas9cy4 
09737600 T O4a598%4 
09737700 T 046113 


097376800. 7 
0973790 
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IF NUMREC = 1 ZUNBLOCKED QUTPUT | 09738100 T Ouw7osy 
$ SET OMIT = NOT SHAREDISK 09738109 T O47482 @ 


a No Ny 9 a 


; | WRITS Sande = | . 09738140 7 O472t4 
SET OM{T = NOT cere OSS Pa aes ovrserae OST 310 
—WRITBACK © TRUED 7 09738300 Ou7 ato 
CovbEr32 THEN PCO»RTNQIS ne 09738400 0476%0 
U a 
-C(WORDSLEFY < BUFFSIZE) AND 09738600 — Oar7g 
CNOTCHORGPEND OR al ialeg “AND WRITBACK)) 09738700 T O479%2 
NS RIN ! ue : 9 AAOO TT. 0aBato 
NUMBUF ; WRITE LAST BUFFER 09738900 T 04840 
WRITS RAND CHECK FUR . 09739000 T 048632 
WA Qs _—__*ERROR 09739100 048820 
NUMBUF t= BUFFNUMS Coa ; . ; 09739200 T O490te 
lr NOT PRESENT THEN eee ee 7 . 09739300. 049383, 
af ; oa : 09739400 a 0 
. “SETPRESENTSBITS 09739500 pasate 
SET OMYT = NOT SHAREDISK 09739549 T 0497140 
ROR : : Z one’ £00 Q. *) e 
END END}. os 09739700 T 049880 
IF CODE * 6 THEN PCOeRTN); os - i 09739750 T O4gato 
F SERIAL AND CODE 2 THEN a % ON a ! ” 09739800 7 0499. 
IF ENUF ILE THEN TERM(15) ELSE ENDFILE ¢ TRUES 09739900 0502%4 
IF CODE = 32 THEN _ & CLEAR WORK AREA 09740000 0508%2 
BEGIN H ¢ WE , READ BEYOND FOF 09740100 05093 
| FOR AT « 0 STF 1 UNTIL CNUMWDS@4) DO HERAT] « O38 09740200 T Q51240 
ENDS 09740300 7 O5lato 
00 2. TH N a a PROGRAM KNOW ae Ee O“00 O51 BES 
BEGIN. a 09740410 fT QO51833 
SET OMyT = NOT ShAREDISK — 09740419 7 O519%] 
oh “END ELSE Re ye EN a Nee end OOF 4OK4O T 051983 
: LASTOGNE © FALSE3 og PREVENT SERTALTO OVERWRITE 09740500 T 051943 
&X% END OF EOF CHECKING. a ee Go ote 09740600 ‘ t 
END GF COBUL DISK InTRINSICS3 09740700 T 052233 
SIZE 0523 
PROCEDURE INTERRUPTER: % execuTlon FOR ED BY SOFTWARE INTERRUPT CODE AT 09800000 TY 0000%0 
START OF REL SEGMENTS DISK ADDRESS ) 
BEGIN OR INITIATES INTERRUPTER PROCESSES ENABLED 09800100 T 000010 
EAL Lit fl oe & OLN RARURF TT 7 J : | : N OOROC2I00 ba 0000 Eon 
I zH2 EXECUTED» POINTING REGer AND REG" Ss TO THE 09800300 0C000t0 
NOTOONE=+3> STACK COPy OF THE OLD INCWe 09800400 000080 
DONE =+43 te 900080 
OREAL PERFORMGEN®L95 ae ae. 09800700 000010 
Ace eae TSKA™ *22C*)s ae % “TASK ARRAY 09800750 oo00tO. 
% CONTE N: : NoRno a HOOO 8H 
rime IFF INTERRUPTER HAS JUST RUN AND 09800760 0000tO 
: SFINT 1S NON"EMPTY 09800765 T 00000 
=} N QN= P : Shes 
U3tgiet. IFF. INTERRUPTER 1S: RUNNING 09800775" ooceto 
: Casyat SFINTO. Parererr BIT 09800780 pace ee 
LCE. & AL CATIVE PRT_ADOHESS GF FIRST TN CINKED 09800790 T 000050 
LIST UF DECLARED INTERRUPTS 09800795 T 0000!0 
PATBASE aqotaal 09800900 T O000!0 
LABEL AGAINS s | ih. BS ae 09600920: 9. 000010 
Och TNE TMASK © B20000H00OOOO0DO#? eo Ls ; O AOetO T 900 
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4 a )¢ 


Re kk te ke ee et he START HERE * & & ke et ek Oe Oh ke ee ke 09800950 T OLv00!n4 
TSKA(8) «¢ hep sais & 1 eae Ara 09800955 T O0O00tO e 


NO HEN Pp J MA LM ef) a H ROO 9 O00 2 


“FSKACOletaii} © OF 09800980 T C006, | e 
POs0#090)3 , 09801000 T 00063. : 
AGA Th M vhae ZI ae wut Bote ace OOROL1 O00 OHOORl _ 
BEGIN. lF “SFINTQL1I#0 THEN. VALIO ENTRY | 09601150 001183 le 
lF MCOSFINTQLIIJ+1]<0 LINK wORD 09801200 001223 . 
THEN NO DONE td SKIP DISABLED INTERRUP 09801300 15% 
ELSE. PERFORM ENABLED INTERRUPT 09801400 OO161q le 


gear. : “ADDR . SSPINTOLIDS 

nh e P ae ; i . +P fs @ 8 MAS 7 = 

P(MKS»AUOR@PRIBASE «(CF }>0»PERFORWGEND3 

IF NOT TSKALI, C431) ay 
TSK 


09801410 
ODoOnO 20. . 


09801450 
09801460 


002210 
O024%1 


FERAL) tats) * OF 


DBP UNTSEDE: BOS ors 09601500 r Oo30n, = = = =———<“<‘«‘~x HO] 
“DONE. « ES ath oa OORD1K00 7. © i eee t 
END} ; . 09801700 003234 te 
Il + I+] , . 09801800 T O032%4 @ 
Dr a a a a Te a eee Delt _____ 09801900 T 0033% ba 
TF DONE: THEN BEGIN ] « DONE «+ NOTDUNE + 03 GO AGAIN} EN ENO$3 09801950 T 003530 “ 
mee TSkACGI. risa) « ‘12xNOTDONE ba aioe . 09802000 T co3gt0 @ 
: Mo ; tay phaassatla Macs Seat e ions hnaaalereneece Pacing open al USGRO2424 00 OO : 
P END INTERRUPTER: 09802200 T d042to ; 
| SIZES 0043 WORDS 23@ 
2 OMMFNT pO NOT P aNY D AR aT jy Pp HIS POINT OR The NTROYO FF 9G BNOO T  On00tO as 
Son STATE PROCEDURE WHATINTRNSIC WILL PROBABLY HANG THE SYSTEMS | 99998010 7, 0000:0 2 
PROCEDURE MHATINTRING TC) 99998020 T 00009 2 @ 
EZ So ee ss AD () R MENTS 0 kK ADDRE “ 2 
Pa BEGIN | 99998030 T Q000%0 1@ 
s LABEL Ls 99998040 T 000080 ia 
ia! PCXIT)3 P LsDEL)s 99998050 OFekeren ae 30 
: Par Ta ee 2 999986100 7 000083 | a 
| . "INTRINS"> fee : 99998200 1 000130 . 1 @ 
: s “ue eee , : : . ; ;  goggR 200 N00>In ta hs - Ig 
: "Xe 3080" . . . ; . 99998400 T 000380 
; % PATCH LEVEL ON NEAT CARD PLEASE 7 99998500 T 000480 @ 
B6 "QQeeeaer ; 9999900 000 ® 
i $ SET OMIT # NUT CTIMESHAR ING) ; a, & 99999100 T. 00056 iad 
ig "e "3 a ee . 99999890 Tt 0005%0 had 
| ND WHATINTRIN : ; se : : ; : 9990090000 7. *eleY. wae : 


: SIZE 0007 
99999990 T ches 0 


NUMBER OF ERRORS DETECTED 8.000, COMPILATION TIME » 1451 SECONDS, 
Pri S1ZE#250 BASE. ADDRESS 0000 CORE REQ=0000 ‘TSK REaa20550 
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